home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / pcbemail / postoffc.ppe (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-09-15  |  58.8 KB  |  3,395 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     String   STRING001
  44.     String   STRING002
  45.     String   STRING003
  46.     String   STRING004
  47.     String   STRING005
  48.     String   STRING006
  49.     String   STRING007
  50.     String   STRING008
  51.     String   STRING009
  52.     String   STRING010
  53.     String   STRING011
  54.     String   STRING012
  55.     String   STRING013
  56.     String   STRING014
  57.     String   STRING015
  58.     String   STRING016
  59.     String   STRING017
  60.     String   STRING018
  61.     String   STRING019
  62.     String   STRING020
  63.     String   STRING021
  64.     String   STRING022
  65.     String   STRING023
  66.     String   STRING024
  67.     String   STRING025
  68.     String   STRING026
  69.     String   STRING027
  70.     String   STRING028
  71.     String   STRING029
  72.     String   STRING030
  73.     String   STRING031
  74.     String   STRING032
  75.     String   STRING033
  76.     String   STRING034
  77.     String   STRING035
  78.     String   STRING036
  79.     String   STRING037
  80.     String   STRING038
  81.     String   STRING039
  82.     String   STRING040
  83.     String   STRING041
  84.     String   STRING042
  85.     String   STRING043
  86.     String   STRING044
  87.     String   STRING045
  88.     String   STRING046
  89.     String   STRING047
  90.     String   STRING048
  91.     String   STRING049
  92.     String   STRING050
  93.     String   STRING051
  94.     String   STRING052
  95.     String   STRING053
  96.     String   STRING054
  97.     String   STRING055
  98.     String   STRING056
  99.     String   STRING057
  100.     String   STRING058
  101.     String   STRING059
  102.     String   STRING060
  103.     String   STRING061
  104.     String   STRING062
  105.     String   STRING063
  106.     String   STRING064
  107.     String   STRING065
  108.     String   STRING066
  109.     String   STRING067
  110.     String   STRING068
  111.     String   STRING069
  112.     String   STRING070
  113.     String   STRING071
  114.     String   STRING072
  115.     String   STRING073
  116.     String   STRING074
  117.     String   STRING075
  118.     String   STRING076
  119.     String   STRING077
  120.     String   STRING078
  121.     String   STRING079
  122.     String   STRING080
  123.     String   STRING081
  124.     String   STRING082
  125.     String   STRING083
  126.     String   STRING084
  127.     String   STRING085
  128.     String   STRING086
  129.     String   STRING087
  130.     String   STRING088
  131.     String   STRING089
  132.     String   STRING090
  133.     String   STRING091
  134.     String   STRING092
  135.     String   STRING093
  136.     String   STRING094
  137.     String   STRING095
  138.     String   STRING096
  139.     String   STRING097
  140.     String   STRING098
  141.     String   STRING099
  142.     String   STRING100
  143.     String   STRING101
  144.     String   STRING102
  145.     String   STRING103
  146.     String   STRING104
  147.     String   STRING105
  148.     String   STRING106
  149.     String   STRING107
  150.     String   STRING108
  151.     String   STRING109
  152.     String   STRING110
  153.     String   STRING111
  154.     String   STRING112
  155.     String   STRING113
  156.     String   STRING114
  157.     String   STRING115
  158.     String   STRING116
  159.     String   STRING117
  160.     String   STRING118
  161.     String   STRING119
  162.     String   STRING120
  163.     String   STRING121
  164.     String   STRING122
  165.     String   STRING123
  166.     String   STRING124
  167.     String   STRING125
  168.     String   STRING126
  169.     String   STRING127
  170.     String   STRING128
  171.     String   STRING129
  172.     String   STRING130
  173.     String   STRING131
  174.     String   STRING132
  175.     String   STRING133
  176.     String   STRING134
  177.     String   STRING135
  178.     String   STRING136
  179.     String   STRING137
  180.     String   STRING138
  181.     String   STRING139
  182.     String   STRING140
  183.     String   STRING141
  184.     String   STRING142
  185.     String   STRING143
  186.     String   STRING144
  187.     String   STRING145
  188.     String   STRING146
  189.     String   STRING147
  190.     String   STRING148
  191.     String   STRING149
  192.     String   STRING150
  193.     String   STRING151
  194.     String   STRING152
  195.     String   STRING153
  196.     String   STRING154
  197.     String   STRING155
  198.     String   STRING156
  199.     String   STRING157
  200.     String   STRING158
  201.     String   TSTRING159(3)
  202.     String   STRING160
  203.     String   TSTRING161(3)
  204.     String   TSTRING162(6)
  205.     String   STRING163
  206.     String   STRING164
  207.     String   STRING165
  208.     String   STRING166
  209.     String   STRING167
  210.     String   STRING168
  211.     String   STRING169
  212.     String   STRING170
  213.     String   STRING171
  214.     String   STRING172
  215.     String   STRING173
  216.     String   STRING174
  217.     String   STRING175
  218.     String   STRING176
  219.     String   STRING177
  220.     String   STRING178
  221.     String   STRING179
  222.     String   STRING182
  223.     String   STRING183
  224.     String   TSTRING184(3)
  225.     String   STRING185
  226.     String   TSTRING186(3)
  227.     String   TSTRING187(6)
  228.     Declare  Procedure PROC001()
  229.     Declare  Procedure PROC002()
  230.     Declare  Procedure PROC003()
  231.     Declare  Procedure PROC004()
  232.     Declare  Procedure PROC005()
  233.     Declare  Procedure PROC006()
  234.     Declare  Procedure PROC007()
  235.     Declare  Procedure PROC008()
  236.     Declare  Procedure PROC009()
  237.     Declare  Procedure PROC010()
  238.     Declare  Procedure PROC011()
  239.     Declare  Procedure PROC012()
  240.     Declare  Procedure PROC013()
  241.     Declare  Procedure PROC014()
  242.     Declare  Procedure PROC015()
  243.     Declare  Procedure PROC016()
  244.     Declare  Procedure PROC017()
  245.     Declare  Procedure PROC018()
  246.     Declare  Procedure PROC019()
  247.     Declare  Procedure PROC021()
  248.     Declare  Procedure PROC022()
  249.     Declare  Procedure PROC023()
  250.     Declare  Procedure PROC024()
  251.     Declare  Procedure PROC025()
  252.     Declare  Procedure PROC026()
  253.     Declare  Procedure PROC027()
  254.     Declare  Procedure PROC029()
  255.     Declare  Procedure PROC030()
  256.     Declare  Procedure PROC031()
  257.     Declare  Procedure PROC032()
  258.     Declare  Procedure PROC033()
  259.     Declare  Procedure PROC034()
  260.     Declare  Procedure PROC035()
  261.     Declare  Procedure PROC036()
  262.     Declare  Procedure PROC037()
  263.     Declare  Procedure PROC039()
  264.     Declare  Procedure PROC040()
  265.     Declare  Procedure PROC041()
  266.     Declare  Procedure PROC042()
  267.     Declare  Procedure PROC043()
  268.     Declare  Procedure PROC044()
  269.     Declare  Procedure PROC045()
  270.     Declare  Procedure PROC046()
  271.     Declare  Procedure PROC047()
  272.     Declare  Procedure PROC048()
  273.     Declare  Procedure PROC049()
  274.     Declare  Procedure PROC050()
  275.     Declare  Procedure PROC051()
  276.     Declare  Procedure PROC052()
  277.  
  278.     STRING015 = "@aol.com"
  279.     STRING016 = "@CompuServe.COM"
  280.     STRING017 = "@delphi.com"
  281.     STRING018 = "@genie.geis.com"
  282.     STRING019 = "@prodigy.com"
  283.     STRING020 = "@attmail.com"
  284.     STRING021 = "@mcimail.com"
  285.     STRING022 = " America Online"
  286.     STRING023 = " Compuserve"
  287.     STRING024 = " Delphi"
  288.     STRING025 = " Genie"
  289.     STRING026 = " Prodigy"
  290.     STRING027 = " AT&T Mail"
  291.     STRING028 = " MCI Mail"
  292.     STRING136 = "NONE"
  293.     STRING137 = " Local Mail"
  294.     STRING138 = " Fidonet Netmail"
  295.     STRING139 = " Internet EMail"
  296.     INTEGER012 = 0
  297.     INTEGER013 = 1
  298.     INTEGER014 = 2
  299.     STRING029 = 3
  300.     STRING030 = 4
  301.     STRING031 = 5
  302.     STRING032 = 6
  303.     STRING033 = 7
  304.     STRING034 = 8
  305.     STRING035 = 9
  306.     STRING134 = "@X0CUNREGISTERED!"
  307.     STRING044 = Chr(7)
  308.     STRING122 = "@X0DAddress Book 1"
  309.     STRING123 = ".ADD"
  310.     STRING124 = ".ADD"
  311.     STRING125 = ".AD2"
  312.     STRING126 = ".AD3"
  313.     STRING127 = ".AD4"
  314.     STRING128 = ".AD5"
  315.     STRING129 = ".AD6"
  316.     STRING130 = ".AD7"
  317.     STRING131 = ".AD8"
  318.     STRING132 = ".AD9"
  319.     STRING133 = ".A10"
  320.     INTEGER008 = 0
  321.     INTEGER003 = "0"
  322.     STRING045 = Chr(13) + Chr(10)
  323.     STRING060 = "SYSOP.$$$"
  324.     STRING047 = "POSTOFFC.CFG"
  325.     STRING048 = PPEPath() + "\" + STRING047
  326.     STRING061 = "POSTOFFC.USR"
  327.     STRING062 = STRING055 + "\" + STRING061
  328.     STRING056 = "\DATA"
  329.     GetUser
  330.     U_FSE = 1
  331.     PutUser
  332.     Cls
  333.     PROC030()
  334.     PROC041()
  335.     PROC015()
  336.     End
  337.  
  338. ;------------------------------------------------------------------------------
  339.  
  340.     Procedure PROC015()
  341.  
  342.     Cls
  343.     StartDisp 0
  344.     PROC018()
  345.     PROC019()
  346.  
  347.     EndProc
  348.  
  349.  
  350. ;------------------------------------------------------------------------------
  351.  
  352.     Procedure PROC019()
  353.  
  354.     InputStr "@X0E             Your Choice", STRING046, 14, 1, "MAWYNSCQGH", 8
  355.     Select Case (STRING046)
  356.         Case "Q"
  357.             End
  358.         Case "M"
  359.             If (Upper(STRING069) == "Y") Then
  360.                 PROC008()
  361.                 PROC046()
  362.             Else
  363.                 PROC015()
  364.             Endif
  365.         Case "A"
  366.             PROC021()
  367.             PROC015()
  368.         Case "W"
  369.             PROC022()
  370.             PROC015()
  371.         Case "Y"
  372.             PROC023()
  373.             PROC015()
  374.         Case "N"
  375.             PROC024()
  376.             PROC015()
  377.         Case "S"
  378.             PROC025()
  379.             PROC015()
  380.         Case "H"
  381.             PROC045()
  382.             PROC015()
  383.         Case "M"
  384.             PROC026()
  385.             PROC015()
  386.         Case "C"
  387.             PROC027()
  388.             PROC015()
  389.         Case "E"
  390.             PROC029()
  391.             PROC015()
  392.         Case "G"
  393.             Command 1, "G"
  394.             End
  395.         Case Else
  396.             PROC015()
  397.     End Select
  398.  
  399.     EndProc
  400.  
  401.     PROC021()
  402.  
  403.     EndProc
  404.  
  405.  
  406. ;------------------------------------------------------------------------------
  407.  
  408.     Procedure PROC043()
  409.  
  410.     Cls
  411.     PrintLn 
  412.     PrintLn 
  413.     PrintLn "@X0E 1 @X0C- @X0A" + STRING137
  414.     PrintLn "@X0E 2 @X0C- @X0A" + STRING138
  415.     PrintLn "@X0E 3 @X0C- @X0A" + STRING139
  416.     PrintLn "@X0E Q @X0C- @X0A Quit "
  417.     PrintLn 
  418.     InputStr " Your Choice", STRING046, 14, 1, "Q123", 8
  419.     Select Case (STRING046)
  420.         Case "Q"
  421.             PROC022()
  422.         Case "1"
  423.             STRING057 = STRING052
  424.         Case "2"
  425.             STRING057 = STRING053
  426.         Case "3"
  427.             STRING057 = STRING054
  428.         Case Else
  429.             PROC022()
  430.     End Select
  431.     ShowOff
  432.     Join STRING057 + ";Q"
  433.     ShowOn
  434.     Command 0, "E"
  435.     PROC022()
  436.  
  437.     EndProc
  438.  
  439.  
  440. ;------------------------------------------------------------------------------
  441.  
  442.     Procedure PROC021()
  443.  
  444.     ShowOff
  445.     STRING070 = STRING055 + STRING056 + "\" + STRING066 + STRING123
  446.     PROC017()
  447.     STRING062 = STRING055 + "\" + STRING061
  448.     FOpen 3, STRING062, 2, 0
  449.     :LABEL001
  450.     If (Ferr(3)) Goto LABEL002
  451.     FGet 3, STRING059
  452.     INTEGER008 = INTEGER008 + 1
  453.     STRING065 = Trim(Left(STRING059, 30), " ")
  454.     STRING066 = Trim(Mid(STRING059, 31, 8), " ")
  455.     If (U_Name() == Upper(STRING065)) Then
  456.         STRING070 = STRING055 + STRING056 + "\" + STRING066 + STRING123
  457.         FClose 3
  458.         StartDisp 1
  459.         PROC001()
  460.         StartDisp 0
  461.         ShowOn
  462.         PROC031()
  463.         PROC032()
  464.         PROC015()
  465.     Endif
  466.     Goto LABEL001
  467.     :LABEL002
  468.     INTEGER009 = Len(U_Name())
  469.     INTEGER009 = 30 - INTEGER009
  470.     FClose 3
  471.     FAppend 3, STRING062, 2, 0
  472.     FPutLn 3, U_Name(), Space(INTEGER009), INTEGER008
  473.     FClose 3
  474.     ShowOn
  475.     PROC021()
  476.  
  477.     EndProc
  478.  
  479.  
  480. ;------------------------------------------------------------------------------
  481.  
  482.     Procedure PROC024()
  483.  
  484.     Command 0, "C"
  485.  
  486.     EndProc
  487.  
  488.  
  489. ;------------------------------------------------------------------------------
  490.  
  491.     Procedure PROC026()
  492.  
  493.     PrintLn 
  494.     PrintLn 
  495.     PrintLn " @X07Mailing Lists Not Available in This Version!"
  496.     PrintLn 
  497.     PROC013()
  498.     Return
  499.  
  500.     EndProc
  501.  
  502.  
  503. ;------------------------------------------------------------------------------
  504.  
  505.     Procedure PROC027()
  506.  
  507.     String   STRING143
  508.  
  509.     PROC016()
  510.     PrintLn "@X0B Mail From You@X0A:"
  511.     PrintLn " @X0D──────────────"
  512.     PrintLn "@X0E 1@X0C -@X0A" + STRING137
  513.     PrintLn "@X0E 2@X0C -@X0A" + STRING138
  514.     PrintLn "@X0E 3@X0C -@X0A" + STRING139
  515.     PrintLn "@X0E A@X0C -@X0A All "
  516.     PrintLn "@X0E Q@X0C -@X0A Quit "
  517.     PrintLn 
  518.     InputStr " Scan Which Area", STRING046, 14, 1, "AQ123", 8
  519.     Select Case (STRING046)
  520.         Case "Q"
  521.             PROC015()
  522.         Case ""
  523.             PROC015()
  524.         Case Else
  525.             PrintLn 
  526.             InputStr " @X07[@X0ER@X07]@X0Aead Messages @X07[@X0ES@X07]@X0Acan Titles", STRING143, 14, 1, "RS", 8
  527.     End Select
  528.     Select Case (STRING046)
  529.         Case "1"
  530.             STRING057 = STRING052
  531.         Case "2"
  532.             STRING057 = STRING053
  533.         Case "3"
  534.             STRING057 = STRING054
  535.         Case "A"
  536.             STRING057 = STRING052
  537.             ShowOff
  538.             Join STRING057 + ";Q"
  539.             ShowOn
  540.             If (Upper((STRING143 == "S"))) Then
  541.                 Command 0, "R F Q"
  542.             Else
  543.                 Command 0, "R F"
  544.             Endif
  545.             STRING057 = STRING053
  546.             ShowOff
  547.             Join STRING057 + ";Q"
  548.             ShowOn
  549.             If (Upper((STRING143 == "S"))) Then
  550.                 Command 0, "R F Q"
  551.             Else
  552.                 Command 0, "R F"
  553.             Endif
  554.             STRING057 = STRING054
  555.             ShowOff
  556.             Join STRING057 + ";Q"
  557.             ShowOn
  558.             If (Upper((STRING143 == "S"))) Then
  559.                 Command 0, "R F Q"
  560.             Else
  561.                 Command 0, "R F"
  562.             Endif
  563.             PROC027()
  564.         Case Else
  565.             PROC015()
  566.     End Select
  567.     ShowOff
  568.     Join STRING057 + ";Q"
  569.     ShowOn
  570.     If (Upper((STRING143 == "S"))) Then
  571.         Command 0, "R F Q"
  572.     Else
  573.         Command 0, "R F"
  574.     Endif
  575.     STRING057 = ""
  576.     PROC027()
  577.  
  578.     EndProc
  579.  
  580.     Shell 0, INTEGER004, "command.com", ""
  581.     PROC015()
  582.  
  583.     EndProc
  584.  
  585.  
  586. ;------------------------------------------------------------------------------
  587.  
  588.     Procedure PROC029()
  589.  
  590.  
  591.     EndProc
  592.  
  593.  
  594. ;------------------------------------------------------------------------------
  595.  
  596.     Procedure PROC030()
  597.  
  598.     FOpen 1, STRING048, 0, 2
  599.     If (Ferr(1)) Then
  600.         PrintLn "CFG File Not Found!"
  601.         PROC013()
  602.         End
  603.         Return
  604.     Endif
  605.     FGet 1, STRING049
  606.     FGet 1, STRING050
  607.     FGet 1, STRING051
  608.     FGet 1, STRING052
  609.     FGet 1, STRING053
  610.     FGet 1, STRING054
  611.     FGet 1, STRING055
  612.     FGet 1, STRING063
  613.     FGet 1, STRING064
  614.     FGet 1, STRING067
  615.     FGet 1, STRING068
  616.     FGet 1, STRING069
  617.     FGet 1, STRING038
  618.     FGet 1, STRING140
  619.     FGet 1, STRING141
  620.     FGet 1, STRING142
  621.     FGet 1, STRING014
  622.     FGet 1, INTEGER006
  623.     FGet 1, INTEGER007
  624.     FGet 1, INTEGER005
  625.     FClose 1
  626.     If (Upper(STRING053) == "NONE") Then
  627.         STRING138 = "@X07 Not Available"
  628.         STRING064 = "None"
  629.     Endif
  630.     If (Upper(STRING054) == "NONE") Then
  631.         STRING139 = "@X07 Not Available"
  632.         STRING063 = "None"
  633.     Endif
  634.     Return
  635.  
  636.     EndProc
  637.  
  638.  
  639. ;------------------------------------------------------------------------------
  640.  
  641.     Procedure PROC025()
  642.  
  643.     String   STRING144
  644.     String   STRING145
  645.  
  646.     STRING145 = "A"
  647.     PROC016()
  648.     PrintLn "@X0B Mail To You@X0A:"
  649.     PrintLn " @X0D────────────"
  650.     PrintLn "@X0E 1@X0C -@X0A" + STRING137
  651.     PrintLn "@X0E 2@X0C -@X0A" + STRING138
  652.     PrintLn "@X0E 3@X0C -@X0A" + STRING139
  653.     PrintLn "@X0E A@X0C -@X0A All "
  654.     PrintLn "@X0E Q@X0C -@X0A Quit "
  655.     PrintLn 
  656.     InputStr " Scan Which Area", STRING046, 14, 1, "AQ123", 8
  657.     Select Case (STRING046)
  658.         Case "Q"
  659.             PROC015()
  660.         Case ""
  661.             PROC015()
  662.         Case Else
  663.             PrintLn 
  664.             InputStr " @X07[@X0EN@X07]@X0Aew Mail or @X07[@X0EA@X07]@X0All Mail", STRING145, 14, 1, "AN", 8
  665.             PrintLn 
  666.             InputStr " @X07[@X0ER@X07]@X0Aead Messages @X07[@X0ES@X07]@X0Acan Titles", STRING144, 14, 1, "RS", 8
  667.     End Select
  668.     Select Case (STRING046)
  669.         Case "1"
  670.             STRING057 = STRING052
  671.         Case "2"
  672.             STRING057 = STRING053
  673.         Case "3"
  674.             STRING057 = STRING054
  675.         Case "A"
  676.             STRING057 = STRING052
  677.             ShowOff
  678.             Join STRING057 + ";Q"
  679.             ShowOn
  680.             If (Upper((STRING145 == "N"))) Then
  681.                 If (Upper((STRING144 == "S"))) Then
  682.                     Command 0, "R U Y Q"
  683.                 Else
  684.                     Command 0, "R U Y"
  685.                 Endif
  686.             ElseIf (Upper((STRING144 == "S"))) Then
  687.                 Command 0, "R Y Q"
  688.             Else
  689.                 Command 0, "R Y"
  690.             Endif
  691.             STRING057 = STRING053
  692.             ShowOff
  693.             Join STRING057 + ";Q"
  694.             ShowOn
  695.             If (Upper((STRING145 == "N"))) Then
  696.                 If (Upper((STRING144 == "S"))) Then
  697.                     Command 0, "R U Y Q"
  698.                 Else
  699.                     Command 0, "R U Y"
  700.                 Endif
  701.             ElseIf (Upper((STRING144 == "S"))) Then
  702.                 Command 0, "R Y Q"
  703.             Else
  704.                 Command 0, "R Y"
  705.             Endif
  706.             STRING057 = STRING054
  707.             ShowOff
  708.             Join STRING057 + ";Q"
  709.             ShowOn
  710.             If (Upper((STRING145 == "N"))) Then
  711.                 If (Upper((STRING144 == "S"))) Then
  712.                     Command 0, "R U Y Q"
  713.                 Else
  714.                     Command 0, "R U Y"
  715.                 Endif
  716.             ElseIf (Upper((STRING144 == "S"))) Then
  717.                 Command 0, "R Y Q"
  718.             Else
  719.                 Command 0, "R Y"
  720.             Endif
  721.             PROC025()
  722.         Case Else
  723.             PROC015()
  724.     End Select
  725.     ShowOff
  726.     Join STRING057 + ";Q"
  727.     ShowOn
  728.     If (Upper((STRING145 == "N"))) Then
  729.         If (Upper((STRING144 == "S"))) Then
  730.             Command 0, "R U Y Q"
  731.         Else
  732.             Command 0, "R U Y"
  733.         Endif
  734.     ElseIf (Upper((STRING144 == "S"))) Then
  735.         Command 0, "R Y Q"
  736.     Else
  737.         Command 0, "R Y"
  738.     Endif
  739.     STRING057 = ""
  740.     PROC025()
  741.  
  742.     EndProc
  743.  
  744.  
  745. ;------------------------------------------------------------------------------
  746.  
  747.     Procedure PROC031()
  748.  
  749.     ShowOff
  750.     FOpen 4, STRING070, 0, 0
  751.     ShowOn
  752.     If (Ferr(4)) Then
  753.         PrintLn STRING044
  754.         PrintLn 
  755.         PrintLn "@X0BAddress Book Not Found!  Starting New...@X0E"
  756.         PrintLn 
  757.         FClose 4
  758.         PROC037()
  759.         Return
  760.     Else
  761.         FGet 4, STRING001
  762.         STRING122 = STRING001
  763.         FGet 4, STRING071
  764.         FGet 4, STRING072
  765.         FGet 4, STRING073
  766.         FGet 4, STRING074
  767.         FGet 4, STRING075
  768.         FGet 4, STRING076
  769.         FGet 4, STRING077
  770.         FGet 4, STRING078
  771.         FGet 4, STRING079
  772.         FGet 4, STRING080
  773.         STRING091 = Trim(Mid(STRING071, 2, 90), " ")
  774.         STRING092 = Trim(Mid(STRING072, 2, 90), " ")
  775.         STRING093 = Trim(Mid(STRING073, 2, 90), " ")
  776.         STRING094 = Trim(Mid(STRING074, 2, 90), " ")
  777.         STRING095 = Trim(Mid(STRING075, 2, 90), " ")
  778.         STRING096 = Trim(Mid(STRING076, 2, 90), " ")
  779.         STRING097 = Trim(Mid(STRING077, 2, 90), " ")
  780.         STRING098 = Trim(Mid(STRING078, 2, 90), " ")
  781.         STRING099 = Trim(Mid(STRING079, 2, 90), " ")
  782.         STRING100 = Trim(Mid(STRING080, 1, 90), " ")
  783.         STRING081 = Trim(Left(STRING071, 1), " ")
  784.         STRING082 = Trim(Left(STRING072, 1), " ")
  785.         STRING083 = Trim(Left(STRING073, 1), " ")
  786.         STRING084 = Trim(Left(STRING074, 1), " ")
  787.         STRING085 = Trim(Left(STRING075, 1), " ")
  788.         STRING086 = Trim(Left(STRING076, 1), " ")
  789.         STRING087 = Trim(Left(STRING077, 1), " ")
  790.         STRING088 = Trim(Left(STRING078, 1), " ")
  791.         STRING089 = Trim(Left(STRING079, 1), " ")
  792.         STRING090 = Trim(Left(STRING080, 1), " ")
  793.     Endif
  794.     FClose 4
  795.  
  796.     EndProc
  797.  
  798.  
  799. ;------------------------------------------------------------------------------
  800.  
  801.     Procedure PROC032()
  802.  
  803.     PROC034()
  804.     InputStr "@X07[@X0EW@X07]@X0Brite @X07[@X0EE@X07]@X0Bdit @X07[@X0ED@X07]@X0Belete @X07[@X0EX@X07]@X0BChange Book @X07[@X0EN@X07]@X0Botes @X07[@X0EQ@X07]@X0Buit@X0E", STRING046, 14, 1, "QWEDNX", 8
  805.     Select Case (STRING046)
  806.         Case "Q"
  807.             PROC015()
  808.         Case "D"
  809.             PrintLn 
  810.             PrintLn 
  811.             PrintLn "     @X0C*@X0EWARNING@X0C* @X0AYou Are About To @X0CDELETE @X0AYour Address Book!"
  812.             PrintLn "     @X0ATo Edit or Delete a Record Use The @X07[@X0EE@X07]@X0Bdit @X0ACommand"
  813.             InputStr "     @X0CDELETE Your Address Book @X07[Y/@X0EN@X07]", STRING046, 14, 1, "YN", 8
  814.             If (STRING046 == "Y") Then
  815.                 Delete STRING070
  816.                 Delete STRING013
  817.                 PROC008()
  818.                 STRING122 = STRING002
  819.                 STRING123 = ".ADD"
  820.                 STRING124 = ".ADD"
  821.             Endif
  822.             PROC021()
  823.         Case "W"
  824.             PROC039()
  825.         Case "E"
  826.             Cls
  827.             PROC036()
  828.         Case "X"
  829.             PROC006()
  830.         Case "N"
  831.             PROC010()
  832.         Case Else
  833.             PROC015()
  834.     End Select
  835.  
  836.     EndProc
  837.  
  838.  
  839. ;------------------------------------------------------------------------------
  840.  
  841.     Procedure PROC034()
  842.  
  843.     PROC009()
  844.     STRING102 = Trim(Left(STRING091, 30), " ")
  845.     STRING103 = Trim(Left(STRING092, 30), " ")
  846.     STRING104 = Trim(Left(STRING093, 30), " ")
  847.     STRING105 = Trim(Left(STRING094, 30), " ")
  848.     STRING106 = Trim(Left(STRING095, 30), " ")
  849.     STRING107 = Trim(Left(STRING096, 30), " ")
  850.     STRING108 = Trim(Left(STRING097, 30), " ")
  851.     STRING109 = Trim(Left(STRING098, 30), " ")
  852.     STRING110 = Trim(Left(STRING099, 30), " ")
  853.     STRING111 = Trim(Left(STRING100, 30), " ")
  854.     PrintLn "@X0F                Address                           Notes"
  855.     INTEGER015 = 30 - Len(STRING091)
  856.     INTEGER016 = 30 - Len(STRING112)
  857.     PrintLn "@X0A A @X0E- @X0A" + STRING102 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING112 + Space(INTEGER016) + "@X07"
  858.     INTEGER015 = 30 - Len(STRING092)
  859.     INTEGER016 = 30 - Len(STRING113)
  860.     PrintLn "@X0A B @X0E- @X0A" + STRING103 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING113 + Space(INTEGER016) + "@X07"
  861.     INTEGER015 = 30 - Len(STRING093)
  862.     INTEGER016 = 30 - Len(STRING114)
  863.     PrintLn "@X0A C @X0E- @X0A" + STRING104 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING114 + Space(INTEGER016) + "@X07"
  864.     INTEGER015 = 30 - Len(STRING094)
  865.     INTEGER016 = 30 - Len(STRING115)
  866.     PrintLn "@X0A D @X0E- @X0A" + STRING105 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING115 + Space(INTEGER016) + "@X07"
  867.     INTEGER015 = 30 - Len(STRING095)
  868.     INTEGER016 = 30 - Len(STRING116)
  869.     PrintLn "@X0A E @X0E- @X0A" + STRING106 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING116 + Space(INTEGER016) + "@X07"
  870.     INTEGER015 = 30 - Len(STRING096)
  871.     INTEGER016 = 30 - Len(STRING117)
  872.     PrintLn "@X0A F @X0E- @X0A" + STRING107 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING117 + Space(INTEGER016) + "@X07"
  873.     INTEGER015 = 30 - Len(STRING097)
  874.     INTEGER016 = 30 - Len(STRING118)
  875.     PrintLn "@X0A G @X0E- @X0A" + STRING108 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING118 + Space(INTEGER016) + "@X07"
  876.     INTEGER015 = 30 - Len(STRING098)
  877.     INTEGER016 = 30 - Len(STRING119)
  878.     PrintLn "@X0A H @X0E- @X0A" + STRING109 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING119 + Space(INTEGER016) + "@X07"
  879.     INTEGER015 = 30 - Len(STRING099)
  880.     INTEGER016 = 30 - Len(STRING120)
  881.     PrintLn "@X0A I @X0E- @X0A" + STRING110 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING120 + Space(INTEGER016) + "@X07"
  882.     INTEGER015 = 30 - Len(STRING100)
  883.     INTEGER016 = 30 - Len(STRING121)
  884.     PrintLn "@X0A J @X0E- @X0A" + STRING111 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING121 + Space(INTEGER016) + "@X07"
  885.  
  886.     EndProc
  887.  
  888.  
  889. ;------------------------------------------------------------------------------
  890.  
  891.     Procedure PROC036()
  892.  
  893.     String   STRING146
  894.     String   STRING147
  895.  
  896.     PROC017()
  897.     PROC031()
  898.     PROC034()
  899.     InputStr " Address # To edit", STRING046, 14, 1, "QABCDEFGHIJ", 8
  900.     PrintLn 
  901.     Select Case (STRING046)
  902.         Case "Q"
  903.             PROC021()
  904.         Case ""
  905.             PROC021()
  906.         Case Else
  907.             PROC051()
  908.     End Select
  909.     Select Case (STRING046)
  910.         Case "A"
  911.             STRING146 = STRING046
  912.             Input "Address", STRING091
  913.             If (Trim(STRING091, " ") == "") Then
  914.                 STRING112 = ""
  915.                 STRING071 = ""
  916.                 PROC002()
  917.                 PROC021()
  918.             Endif
  919.             PROC044()
  920.             STRING101 = STRING091
  921.             PROC005()
  922.             STRING071 = STRING135 + STRING101
  923.         Case "B"
  924.             STRING146 = STRING046
  925.             Input "Address", STRING092
  926.             If (Trim(STRING092, " ") == "") Then
  927.                 STRING113 = ""
  928.                 STRING072 = ""
  929.                 PROC002()
  930.                 PROC021()
  931.             Endif
  932.             PROC044()
  933.             STRING101 = STRING092
  934.             PROC005()
  935.             STRING072 = STRING135 + STRING101
  936.         Case "C"
  937.             STRING146 = STRING046
  938.             Input "Address", STRING093
  939.             If (Trim(STRING093, " ") == "") Then
  940.                 STRING114 = ""
  941.                 STRING073 = ""
  942.                 PROC002()
  943.                 PROC021()
  944.             Endif
  945.             PROC044()
  946.             STRING101 = STRING093
  947.             PROC005()
  948.             STRING073 = STRING135 + STRING101
  949.         Case "D"
  950.             STRING146 = STRING046
  951.             Input "Address", STRING094
  952.             If (Trim(STRING094, " ") == "") Then
  953.                 STRING115 = ""
  954.                 STRING074 = ""
  955.                 PROC002()
  956.                 PROC021()
  957.             Endif
  958.             PROC044()
  959.             STRING101 = STRING094
  960.             PROC005()
  961.             STRING074 = STRING135 + STRING101
  962.         Case "E"
  963.             STRING146 = STRING046
  964.             Input "Address", STRING095
  965.             If (Trim(STRING095, " ") == "") Then
  966.                 STRING116 = ""
  967.                 STRING075 = ""
  968.                 PROC002()
  969.                 PROC021()
  970.             Endif
  971.             PROC044()
  972.             STRING101 = STRING095
  973.             PROC005()
  974.             STRING075 = STRING135 + STRING101
  975.         Case "F"
  976.             Input "Address", STRING096
  977.             If (Trim(STRING096, " ") == "") Then
  978.                 STRING117 = ""
  979.                 STRING076 = ""
  980.                 PROC002()
  981.                 PROC021()
  982.             Endif
  983.             STRING146 = STRING046
  984.             PROC044()
  985.             STRING101 = STRING096
  986.             PROC005()
  987.             STRING076 = STRING135 + STRING101
  988.         Case "G"
  989.             STRING146 = STRING046
  990.             Input "Address", STRING097
  991.             If (Trim(STRING097, " ") == "") Then
  992.                 STRING118 = ""
  993.                 STRING077 = ""
  994.                 PROC002()
  995.                 PROC021()
  996.             Endif
  997.             PROC044()
  998.             STRING101 = STRING097
  999.             PROC005()
  1000.             STRING077 = STRING135 + STRING101
  1001.         Case "H"
  1002.             STRING146 = STRING046
  1003.             Input "Address", STRING098
  1004.             If (Trim(STRING098, " ") == "") Then
  1005.                 STRING119 = ""
  1006.                 STRING078 = ""
  1007.                 PROC002()
  1008.                 PROC021()
  1009.             Endif
  1010.             PROC044()
  1011.             STRING101 = STRING098
  1012.             PROC005()
  1013.             STRING078 = STRING135 + STRING101
  1014.         Case "I"
  1015.             STRING146 = STRING046
  1016.             Input "Address", STRING099
  1017.             If (Trim(STRING099, " ") == "") Then
  1018.                 STRING120 = ""
  1019.                 STRING079 = ""
  1020.                 PROC002()
  1021.                 PROC021()
  1022.             Endif
  1023.             PROC044()
  1024.             STRING101 = STRING099
  1025.             PROC005()
  1026.             STRING079 = STRING135 + STRING101
  1027.         Case "J"
  1028.             STRING146 = STRING046
  1029.             Input "Address", STRING100
  1030.             If (Trim(STRING100, " ") == "") Then
  1031.                 STRING121 = ""
  1032.                 STRING080 = ""
  1033.                 PROC002()
  1034.                 PROC021()
  1035.             Endif
  1036.             PROC044()
  1037.             STRING101 = STRING100
  1038.             PROC005()
  1039.             STRING080 = STRING135 + STRING101
  1040.         Case Else
  1041.             PROC021()
  1042.     End Select
  1043.     Delete STRING070
  1044.     FAppend 5, STRING070, 2, 0
  1045.     FPut 5, STRING122 + STRING045
  1046.     FPut 5, STRING071 + STRING045
  1047.     FPut 5, STRING072 + STRING045
  1048.     FPut 5, STRING073 + STRING045
  1049.     FPut 5, STRING074 + STRING045
  1050.     FPut 5, STRING075 + STRING045
  1051.     FPut 5, STRING076 + STRING045
  1052.     FPut 5, STRING077 + STRING045
  1053.     FPut 5, STRING078 + STRING045
  1054.     FPut 5, STRING079 + STRING045
  1055.     FPut 5, STRING080 + STRING045
  1056.     FClose 5
  1057.     PrintLn 
  1058.     PrintLn 
  1059.     InputStr " Attach a Note to this record @X07[@X0EY@X07/@X0EN@X07]@X0E", STRING147, 14, 1, "YN", 8
  1060.     If (Upper((STRING147 == "Y"))) Then
  1061.         STRING046 = STRING146
  1062.         PROC011()
  1063.     Endif
  1064.     Cls
  1065.     PROC036()
  1066.  
  1067.     EndProc
  1068.  
  1069.  
  1070. ;------------------------------------------------------------------------------
  1071.  
  1072.     Procedure PROC017()
  1073.  
  1074.     Cls
  1075.     PrintLn " @X1B   @X70≡≡           @X74▄ @X1B  @X1B       ─────────────────────────────────────────────── @X0B"
  1076.     PrintLn " @X1B   @X70    ≡≡≡≡≡      @X0B  @X1B                ╖  ╖                ╖        ╖         @X0B"
  1077.     PrintLn " @X1B   @X70               @X0B  @X1B            ┌╖ ╓╢ ╓╢ ╓╖ ╓╖ ╓─ ╓─    ╟╖ ╓╖ ╓╖ ║/        @X0B"
  1078.     PrintLn " @X1B   @X10  ███████████@X0B    @X1B            └╨ ╙╜ ╙╜ ╙  ╙─ ─╜ ─╜    ╙╜ ╙╜ ╙╜ ╙╙        @X0B"
  1079.     PrintLn " @X1B                                                                           @X0B"
  1080.     PrintLn "                               " + STRING122
  1081.  
  1082.     EndProc
  1083.  
  1084.  
  1085. ;------------------------------------------------------------------------------
  1086.  
  1087.     Procedure PROC018()
  1088.  
  1089.     Cls
  1090.     PrintLn "@X11                                                                           @X0B"
  1091.     PrintLn "@X1B   @X70≡≡           @X74▄ @X1B  @X1B       ─────────────────────────────────────────────── @X0B"
  1092.     PrintLn "@X1B   @X70    ≡≡≡≡≡      @X0B  @X1B                                 ╓╖ ╓╖ ■               @X0B"
  1093.     PrintLn "@X1B   @X70               @X0B  @X1B               ╓╖ ╓╖ ╓─ ╫─    ╓╖ ╫─ ╫─ ╖ ╓─ ╓╖         @X0B"
  1094.     PrintLn "@X1B   @X10  ███████████@X0B    @X1B               ╟╜ ╙╜ ─╜ ╙╜    ╙╜ ╙  ╙  ╙ ╙─ ╙─         @X0B"
  1095.     PrintLn "@X1B                                   ╙                                       @X0B"
  1096.     PrintLn ""
  1097.     PrintLn "             @X1E ╒═════════════════════════════════════════════╕ @X0B"
  1098.     PrintLn "             @X1E │                                             │ @X0B"
  1099.     PrintLn "             @X1E │  @X17 [@X1EA@X17]@X1B...Address Book  @X17 [@X1ES@X17]@X1B...Scan Mailbox   @X1E│ @X0B"
  1100.     PrintLn "             @X1E │  @X17 [@X1EW@X17]@X1B....Write EMail  @X17 [@X1EC@X17]@X1B.Check Mailsent   @X1E│ @X0B"
  1101.     PrintLn "             @X1E │  @X17 [@X1EY@X17]@X1B...Your Address  @X17  @X1E @X17 @X1B                  @X1E│ @X0B"
  1102.     PrintLn "             @X1E │  @X17 [@X1EN@X17]@X1B..Note To Sysop  @X17 [@X1EG@X17]@X1B.Goodbye/Logoff   @X1E│ @X0B"
  1103.     PrintLn "             @X1E │  @X17 [@X1EH@X17]@X1B..Help and Info  @X17 [@X1EQ@X17]@X1B....Quit To BBS   @X1E│ @X0B"
  1104.     If (Upper(STRING069) == "Y") Then
  1105.         PrintLn "             @X1E │  @X17 [@X1EM@X17]@X1B...Message Area@X17 - Extended Messaging   @X1E│ @X0B"
  1106.     Endif
  1107.     PrintLn "             @X1E │                                             │ @X0B"
  1108.     PrintLn "             @X1E ╘═════════════════════════════════════════════╛ @X0B"
  1109.     PrintLn "             @X07  Registered To: " + STRING134
  1110.  
  1111.     EndProc
  1112.  
  1113.  
  1114.     EndProc
  1115.  
  1116.  
  1117. ;------------------------------------------------------------------------------
  1118.  
  1119.     Procedure PROC023()
  1120.  
  1121.     String   STRING148
  1122.     String   STRING149
  1123.     String   STRING150
  1124.     String   STRING151
  1125.     String   STRING152
  1126.     String   STRING153
  1127.  
  1128.     STRING148 = STRING064
  1129.     STRING149 = STRING063
  1130.     INTEGER002 = InStr(STRING064, ":")
  1131.     STRING040 = Left(STRING064, INTEGER002 - 1)
  1132.     STRING041 = Mid(STRING064, INTEGER002 + 1, 20)
  1133.     INTEGER002 = 0
  1134.     INTEGER002 = InStr(STRING041, "/")
  1135.     STRING042 = Left(STRING041, INTEGER002 - 1)
  1136.     STRING043 = Trim(Mid(STRING041, INTEGER002 + 1, 6), " ")
  1137.     INTEGER002 = 0
  1138.     STRING153 = U_Name()
  1139.     STRING152 = "@X0A  Your Internet EMail address is @X0E:@X0B "
  1140.     STRING063 = "@" + STRING063
  1141.     STRING151 = "@X0A  Your Fidonet EMail address is @X0E:@X0B "
  1142.     STRING064 = "@" + STRING064
  1143.     STRING150 = Replace(Lower(U_Name()), " ", ".")
  1144.     PrintLn 
  1145.     PrintLn 
  1146.     If (Upper(STRING140) == "Y") Then
  1147.         PrintLn STRING152
  1148.         PrintLn "            " + STRING150 + STRING063
  1149.     Endif
  1150.     If (Upper(STRING141) == "Y") Then
  1151.         PrintLn STRING151
  1152.         PrintLn "            " + STRING153 + STRING064
  1153.     Endif
  1154.     STRING043 = "@f" + STRING043 + "."
  1155.     STRING042 = "n" + STRING042 + "."
  1156.     STRING040 = "z" + STRING040 + ".fidonet.org"
  1157.     If (Upper(STRING142) == "Y") Then
  1158.         PrintLn "@X0A  Your Fido EMail Address Via the Internet@X0E:@X0B "
  1159.         PrintLn "            " + STRING150 + STRING043 + STRING042 + STRING040
  1160.         STRING043 = ""
  1161.         STRING042 = ""
  1162.         STRING040 = ""
  1163.     Endif
  1164.     PrintLn 
  1165.     PROC013()
  1166.     STRING064 = STRING148
  1167.     STRING063 = STRING149
  1168.  
  1169.     EndProc
  1170.  
  1171.  
  1172. ;------------------------------------------------------------------------------
  1173.  
  1174.     Procedure PROC039()
  1175.  
  1176.     PrintLn 
  1177.     InputStr " Send To @X07[@X0EA@X07-@X0EJ@X07]", STRING046, 14, 1, "QABCDEFGHIJ", 8
  1178.     PrintLn 
  1179.     Select Case (STRING046)
  1180.         Case "Q"
  1181.             PROC021()
  1182.         Case "A"
  1183.             STRING058 = STRING091
  1184.             INTEGER011 = STRING081
  1185.         Case "B"
  1186.             STRING058 = STRING092
  1187.             INTEGER011 = STRING082
  1188.         Case "C"
  1189.             STRING058 = STRING093
  1190.             INTEGER011 = STRING083
  1191.         Case "D"
  1192.             STRING058 = STRING094
  1193.             INTEGER011 = STRING084
  1194.         Case "E"
  1195.             STRING058 = STRING095
  1196.             INTEGER011 = STRING085
  1197.         Case "F"
  1198.             STRING058 = STRING096
  1199.             INTEGER011 = STRING086
  1200.         Case "G"
  1201.             STRING058 = STRING097
  1202.             INTEGER011 = STRING087
  1203.         Case "H"
  1204.             STRING058 = STRING098
  1205.             INTEGER011 = STRING088
  1206.         Case "I"
  1207.             STRING058 = STRING099
  1208.             INTEGER011 = STRING089
  1209.         Case "J"
  1210.             STRING058 = STRING100
  1211.             INTEGER011 = STRING090
  1212.         Case Else
  1213.             PROC021()
  1214.     End Select
  1215.     If (Trim(STRING058, " ") == "") Then
  1216.         PROC021()
  1217.     Endif
  1218.     Select Case (INTEGER011)
  1219.         Case INTEGER012
  1220.             STRING057 = STRING052
  1221.         Case INTEGER013
  1222.             STRING057 = STRING053
  1223.             If (CurSec() < INTEGER006) Then
  1224.                 PrintLn 
  1225.                 PrintLn "@X0C Sorry but you don't have access to this feature! "
  1226.                 PrintLn "@X0A Please contact the SysOp for access...."
  1227.                 PrintLn 
  1228.                 PROC013()
  1229.                 PROC021()
  1230.             Endif
  1231.             If (Upper(STRING067) == "Y") Then
  1232.                 STRING057 = STRING054
  1233.                 ShowOff
  1234.                 Join STRING057 + ";Q"
  1235.                 ShowOn
  1236.                 If (CurSec() >= INTEGER005) Then
  1237.                     PrintLn 
  1238.                     InputStr "@X0A Route@X07 [@X0ED@X07]@X0Airect or through@X07 [@X0EI@X07]@X0Anternet", STRING046, 14, 1, "DI", 8
  1239.                     If (STRING046 == "I") Then
  1240.                         PROC004()
  1241.                         KbdStuff STRING036 + STRING045
  1242.                         Command 0, "E"
  1243.                         PROC021()
  1244.                         Goto LABEL003
  1245.                     Endif
  1246.                     If (STRING046 == "D") Then
  1247.                         ShowOff
  1248.                         STRING057 = STRING053
  1249.                         Join STRING057 + ";Q"
  1250.                         ShowOn
  1251.                         KbdStuff STRING058 + STRING045
  1252.                         Command 0, "E"
  1253.                         PROC021()
  1254.                         Goto LABEL003
  1255.                     Endif
  1256.                     PROC021()
  1257.                 Endif
  1258.                 :LABEL003
  1259.                 PROC004()
  1260.                 KbdStuff STRING036 + STRING045
  1261.                 Command 0, "E"
  1262.                 PROC021()
  1263.             Endif
  1264.         Case INTEGER014
  1265.             STRING058 = ReplaceStr(STRING058, " ", ".")
  1266.             PROC003()
  1267.             STRING057 = STRING054
  1268.             If (Upper(STRING068) == "Y") Then
  1269.                 ShowOff
  1270.                 STRING057 = STRING053
  1271.                 Join STRING057 + ";Q"
  1272.                 ShowOn
  1273.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1274.                 PrintLn 
  1275.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1276.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1277.                 Command 0, "E"
  1278.                 PROC021()
  1279.             Endif
  1280.         Case STRING029
  1281.             PROC003()
  1282.             STRING057 = STRING054
  1283.             If (Upper(STRING068) == "Y") Then
  1284.                 ShowOff
  1285.                 STRING057 = STRING053
  1286.                 Join STRING057 + ";Q"
  1287.                 ShowOn
  1288.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1289.                 PrintLn 
  1290.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1291.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1292.                 Command 0, "E"
  1293.                 PROC021()
  1294.             Endif
  1295.         Case STRING030
  1296.             PROC003()
  1297.             STRING058 = ReplaceStr(STRING058, ",", ".")
  1298.             STRING057 = STRING054
  1299.             If (Upper(STRING068) == "Y") Then
  1300.                 ShowOff
  1301.                 STRING057 = STRING053
  1302.                 Join STRING057 + ";Q"
  1303.                 ShowOn
  1304.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1305.                 PrintLn 
  1306.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1307.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1308.                 Command 0, "E"
  1309.                 PROC021()
  1310.             Endif
  1311.         Case STRING031
  1312.             PROC003()
  1313.             STRING057 = STRING054
  1314.             If (Upper(STRING068) == "Y") Then
  1315.                 ShowOff
  1316.                 STRING057 = STRING053
  1317.                 Join STRING057 + ";Q"
  1318.                 ShowOn
  1319.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1320.                 PrintLn 
  1321.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1322.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1323.                 Command 0, "E"
  1324.                 PROC021()
  1325.             Endif
  1326.         Case STRING032
  1327.             PROC003()
  1328.             STRING057 = STRING054
  1329.             If (Upper(STRING068) == "Y") Then
  1330.                 ShowOff
  1331.                 STRING057 = STRING053
  1332.                 Join STRING057 + ";Q"
  1333.                 ShowOn
  1334.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1335.                 PrintLn 
  1336.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1337.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1338.                 Command 0, "E"
  1339.                 PROC021()
  1340.             Endif
  1341.         Case STRING033
  1342.             PROC003()
  1343.             STRING057 = STRING054
  1344.             If (Upper(STRING068) == "Y") Then
  1345.                 ShowOff
  1346.                 STRING057 = STRING053
  1347.                 Join STRING057 + ";Q"
  1348.                 ShowOn
  1349.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1350.                 PrintLn 
  1351.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1352.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1353.                 Command 0, "E"
  1354.                 PROC021()
  1355.             Endif
  1356.         Case STRING034
  1357.             PROC003()
  1358.             STRING057 = STRING054
  1359.             If (Upper(STRING068) == "Y") Then
  1360.                 ShowOff
  1361.                 STRING057 = STRING053
  1362.                 Join STRING057 + ";Q"
  1363.                 ShowOn
  1364.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1365.                 PrintLn 
  1366.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1367.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1368.                 Command 0, "E"
  1369.                 PROC021()
  1370.             Endif
  1371.         Case STRING035
  1372.             PROC003()
  1373.             STRING057 = STRING054
  1374.             If (Upper(STRING068) == "Y") Then
  1375.                 ShowOff
  1376.                 STRING057 = STRING053
  1377.                 Join STRING057 + ";Q"
  1378.                 ShowOn
  1379.                 STRING039 = "UUCP@" + STRING038 + STRING045
  1380.                 PrintLn 
  1381.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  1382.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  1383.                 Command 0, "E"
  1384.                 PROC021()
  1385.             Endif
  1386.         Case Else
  1387.             PROC021()
  1388.     End Select
  1389.     ShowOff
  1390.     Join STRING057 + ";Q"
  1391.     ShowOn
  1392.     KbdStuff STRING058 + STRING045
  1393.     Command 0, "E"
  1394.     PROC021()
  1395.  
  1396.     EndProc
  1397.  
  1398.  
  1399. ;------------------------------------------------------------------------------
  1400.  
  1401.     Procedure PROC041()
  1402.  
  1403.     Integer  INTEGER017
  1404.     Integer  INTEGER018
  1405.  
  1406.     Cls
  1407.     PrintLn 
  1408.     INTEGER010 = (Asc(STRING049) * 1234) / 3 + (Asc(STRING050) * 4321) / 5
  1409.     INTEGER017 = (Asc(STRING049) * 217) / 2 + (Asc(STRING050) * 1461) / 2
  1410.     INTEGER018 = (Asc(STRING049) * 4326) / 8 + (Asc(STRING050) * 1266) / 3
  1411.     If (INTEGER010 == STRING051) Then
  1412.         If (PcbNode() > 4) Then
  1413.             PROC052()
  1414.         Else
  1415.             STRING134 = STRING050
  1416.             Return
  1417.         Endif
  1418.     ElseIf (INTEGER017 == STRING051) Then
  1419.         If (PcbNode() > 8) Then
  1420.             PROC052()
  1421.         Else
  1422.             STRING134 = STRING050
  1423.             Return
  1424.         Endif
  1425.     ElseIf (INTEGER018 == STRING051) Then
  1426.         If (PcbNode() > 16) Then
  1427.             PROC052()
  1428.         Else
  1429.             STRING134 = STRING050
  1430.             Return
  1431.         Endif
  1432.     ElseIf (PcbNode() > 1) Then
  1433.         PROC052()
  1434.     Else
  1435.         PROC042()
  1436.     Endif
  1437.     Return
  1438.  
  1439.     EndProc
  1440.  
  1441.  
  1442. ;------------------------------------------------------------------------------
  1443.  
  1444.     Procedure PROC042()
  1445.  
  1446.     Cls
  1447.     PrintLn "                 @X17 ╒══════════════════════════════════════════════╕ @X07"
  1448.     PrintLn "                 @X17 │                                              │ @X07"
  1449.     PrintLn "                 @X17 │     @X1B This Copy Of PCBoard PostOffice Is     @X17 │ @X07"
  1450.     PrintLn "                 @X17 │                                              │ @X07"
  1451.     PrintLn "                 @X17 │         @X1C       UNREGISTERED!                @X17 │ @X07"
  1452.     PrintLn "                 @X17 │                                              │ @X07"
  1453.     PrintLn "                 @X17 │  @X1E  Please Send A Check or Money Order To:   @X17 │ @X07"
  1454.     PrintLn "                 @X17 │  @X1E             Richard Ploski                @X17 │ @X07"
  1455.     PrintLn "                 @X17 │  @X1E              1 Rock Ridge                 @X17 │ @X07"
  1456.     PrintLn "                 @X17 │  @X1E        Mamaroneck, New York 10543         @X17 │ @X07"
  1457.     PrintLn "                 @X17 │                                              │ @X07"
  1458.     PrintLn "                 @X17 │  @X1B           BBS: 1-914-381-2390             @X17 │ @X07"
  1459.     PrintLn "                 @X17 │  @X1B           FAX: 1-914-777-1927             @X17 │ @X07"
  1460.     PrintLn "                 @X17 │  @X1B          Voice: 1-914-381-9272            @X17 │ @X07"
  1461.     PrintLn "                 @X17 │  @X1F   Fidonet: Richard Ploski @1:2625/120     @X17 │ @X07"
  1462.     PrintLn "                 @X17 │  @X1F   Internet: support@ploski.com            @X17 │ @X07"
  1463.     PrintLn "                 @X17 │  @X1E      Check REGISTER.DOC for Info!         @X17 │ @X07"
  1464.     PrintLn "                 @X17 │                                              │ @X07"
  1465.     PrintLn "                 @X17 ╘══════════════════════════════════════════════╛ @X07"
  1466.     Delay 100
  1467.     PROC013()
  1468.     Return
  1469.  
  1470.     EndProc
  1471.  
  1472.  
  1473. ;------------------------------------------------------------------------------
  1474.  
  1475.     Procedure PROC037()
  1476.  
  1477.     String   STRING154
  1478.     String   STRING155
  1479.     String   STRING156
  1480.  
  1481.     InputStr " Name Of New Book", STRING154, 14, 14, Mask_Ascii(), 0
  1482.     If (STRING154 == "") Then
  1483.         PROC008()
  1484.         STRING122 = STRING002
  1485.         STRING123 = ".ADD"
  1486.         PROC015()
  1487.     Else
  1488.         STRING122 = STRING154
  1489.         PROC017()
  1490.         PROC035()
  1491.     Endif
  1492.     InputStr " Address # To edit", STRING046, 14, 1, "QABCDEFGHIJ", 8
  1493.     PrintLn 
  1494.     If (STRING046 == "Q") Then
  1495.         PROC008()
  1496.         STRING122 = STRING002
  1497.         STRING123 = ".ADD"
  1498.         PROC015()
  1499.     Else
  1500.         PROC051()
  1501.     Endif
  1502.     Select Case (STRING046)
  1503.         Case "A"
  1504.             STRING155 = STRING046
  1505.             Input "Address", STRING091
  1506.             PROC044()
  1507.             STRING101 = STRING091
  1508.             PROC005()
  1509.             STRING071 = STRING135 + STRING101
  1510.         Case "B"
  1511.             STRING155 = STRING046
  1512.             Input "Address", STRING092
  1513.             PROC044()
  1514.             STRING101 = STRING092
  1515.             PROC005()
  1516.             STRING072 = STRING135 + STRING101
  1517.         Case "C"
  1518.             STRING155 = STRING046
  1519.             Input "Address", STRING093
  1520.             PROC044()
  1521.             STRING101 = STRING093
  1522.             PROC005()
  1523.             STRING073 = STRING135 + STRING101
  1524.         Case "D"
  1525.             STRING155 = STRING046
  1526.             Input "Address", STRING094
  1527.             PROC044()
  1528.             STRING101 = STRING094
  1529.             PROC005()
  1530.             STRING074 = STRING135 + STRING101
  1531.         Case "E"
  1532.             STRING155 = STRING046
  1533.             Input "Address", STRING095
  1534.             PROC044()
  1535.             STRING101 = STRING095
  1536.             PROC005()
  1537.             STRING075 = STRING135 + STRING101
  1538.         Case "F"
  1539.             STRING155 = STRING046
  1540.             Input "Address", STRING096
  1541.             PROC044()
  1542.             STRING101 = STRING096
  1543.             PROC005()
  1544.             STRING076 = STRING135 + STRING101
  1545.         Case "G"
  1546.             STRING155 = STRING046
  1547.             Input "Address", STRING097
  1548.             PROC044()
  1549.             STRING101 = STRING097
  1550.             PROC005()
  1551.             STRING077 = STRING135 + STRING101
  1552.         Case "H"
  1553.             STRING155 = STRING046
  1554.             Input "Address", STRING098
  1555.             PROC044()
  1556.             STRING101 = STRING098
  1557.             PROC005()
  1558.             STRING078 = STRING135 + STRING101
  1559.         Case "I"
  1560.             STRING155 = STRING046
  1561.             Input "Address", STRING099
  1562.             PROC044()
  1563.             STRING101 = STRING099
  1564.             PROC005()
  1565.             STRING079 = STRING135 + STRING101
  1566.         Case "J"
  1567.             STRING155 = STRING046
  1568.             Input "Address", STRING100
  1569.             PROC044()
  1570.             STRING101 = STRING100
  1571.             PROC005()
  1572.             STRING080 = STRING135 + STRING101
  1573.         Case Else
  1574.             PROC008()
  1575.             STRING122 = STRING002
  1576.             STRING123 = ".ADD"
  1577.             PROC015()
  1578.     End Select
  1579.     Delete STRING070
  1580.     FAppend 5, STRING070, 2, 0
  1581.     FPut 5, STRING154 + STRING045
  1582.     FPut 5, STRING071 + STRING045
  1583.     FPut 5, STRING072 + STRING045
  1584.     FPut 5, STRING073 + STRING045
  1585.     FPut 5, STRING074 + STRING045
  1586.     FPut 5, STRING075 + STRING045
  1587.     FPut 5, STRING076 + STRING045
  1588.     FPut 5, STRING077 + STRING045
  1589.     FPut 5, STRING078 + STRING045
  1590.     FPut 5, STRING079 + STRING045
  1591.     FPut 5, STRING080 + STRING045
  1592.     FClose 5
  1593.     PrintLn 
  1594.     PrintLn 
  1595.     InputStr " Attach a Note to this record @X07[@X0EY@X07/@X0EN@X07]@X0E", STRING156, 14, 1, "YN", 8
  1596.     If (Upper((STRING156 == "Y"))) Then
  1597.         STRING046 = STRING155
  1598.         PROC012()
  1599.     ElseIf (Upper((STRING156 == "N"))) Then
  1600.         STRING046 = STRING156
  1601.         PROC012()
  1602.     ElseIf (Upper((STRING156 == ""))) Then
  1603.         STRING046 = "N"
  1604.         PROC012()
  1605.     Endif
  1606.     Cls
  1607.     PROC036()
  1608.  
  1609.     EndProc
  1610.  
  1611.  
  1612. ;------------------------------------------------------------------------------
  1613.  
  1614.     Procedure PROC022()
  1615.  
  1616.     ShowOff
  1617.     STRING070 = STRING055 + STRING056 + "\" + STRING066 + STRING123
  1618.     PROC017()
  1619.     STRING062 = STRING055 + "\" + STRING061
  1620.     FOpen 3, STRING062, 2, 0
  1621.     :LABEL004
  1622.     If (Ferr(3)) Goto LABEL005
  1623.     FGet 3, STRING059
  1624.     INTEGER008 = INTEGER008 + 1
  1625.     STRING065 = Trim(Left(STRING059, 30), " ")
  1626.     STRING066 = Trim(Mid(STRING059, 31, 8), " ")
  1627.     If (U_Name() == Upper(STRING065)) Then
  1628.         STRING070 = STRING055 + STRING056 + "\" + STRING066 + STRING123
  1629.         FClose 3
  1630.         StartDisp 1
  1631.         PROC001()
  1632.         StartDisp 0
  1633.         ShowOn
  1634.         PROC031()
  1635.         PROC033()
  1636.         PROC015()
  1637.     Endif
  1638.     Goto LABEL004
  1639.     :LABEL005
  1640.     INTEGER009 = Len(U_Name())
  1641.     INTEGER009 = 30 - INTEGER009
  1642.     FClose 3
  1643.     FAppend 3, STRING062, 2, 0
  1644.     FPutLn 3, U_Name(), Space(INTEGER009), INTEGER008
  1645.     FClose 3
  1646.     ShowOn
  1647.     PROC022()
  1648.  
  1649.     EndProc
  1650.  
  1651.  
  1652. ;------------------------------------------------------------------------------
  1653.  
  1654.     Procedure PROC033()
  1655.  
  1656.     PROC034()
  1657.     InputStr "@X07[@X0EPerson To Write@X07]@X0B or @X07[@X0EO@X07]@X0Bther (not in list) @X07[@X0EX@X07]@X0BChange Book@X0E @X07[@X0EQ@X07]@X0Buit@X0E", STRING046, 14, 1, "ABCDEFGHIJOQX", 8
  1658.     Select Case (STRING046)
  1659.         Case "Q"
  1660.             Return
  1661.         Case "X"
  1662.             PROC007()
  1663.         Case "O"
  1664.             PROC043()
  1665.         Case "A"
  1666.             PROC040()
  1667.         Case "B"
  1668.             PROC040()
  1669.         Case "C"
  1670.             PROC040()
  1671.         Case "D"
  1672.             PROC040()
  1673.         Case "E"
  1674.             PROC040()
  1675.         Case "F"
  1676.             PROC040()
  1677.         Case "G"
  1678.             PROC040()
  1679.         Case "H"
  1680.             PROC040()
  1681.         Case "I"
  1682.             PROC040()
  1683.         Case "J"
  1684.             PROC040()
  1685.     End Select
  1686.  
  1687.     EndProc
  1688.  
  1689.  
  1690. ;------------------------------------------------------------------------------
  1691.  
  1692.     Procedure PROC044()
  1693.  
  1694.     PrintLn 
  1695.     PrintLn "@X0E 1@X0C -@X0A" + STRING137
  1696.     PrintLn "@X0E 2@X0C -@X0A" + STRING138
  1697.     PrintLn "@X0E 3@X0C -@X0A" + STRING139
  1698.     If (Upper((STRING014 == "Y"))) Then
  1699.         PrintLn "@X0E 4@X0C -@X0A" + STRING022
  1700.         PrintLn "@X0E 5@X0C -@X0A" + STRING023
  1701.         PrintLn "@X0E 6@X0C -@X0A" + STRING024
  1702.         PrintLn "@X0E 7@X0C -@X0A" + STRING025
  1703.         PrintLn "@X0E 8@X0C -@X0A" + STRING026
  1704.         PrintLn "@X0E 9@X0C -@X0A" + STRING027
  1705.         PrintLn "@X0E 0@X0C -@X0A" + STRING028
  1706.         PrintLn 
  1707.         InputStr "@X0AWhat Network @X07[@X0E1@X07/@X0E2@X07/@X0E3@X07/@X0E4@X07/@X0E5@X07/@X0E6@X07/@X0E7@X07/@X0E8@X07/@X0E9@X07/@X0E0@X07]@X0E", STRING046, 14, 1, "1234567890", 8
  1708.     Else
  1709.         PrintLn 
  1710.         InputStr "@X0AWhat Network @X07[@X0E1@X07/@X0E2@X07/@X0E3@X07]@X0E", STRING046, 14, 1, "123", 8
  1711.     Endif
  1712.     Select Case (STRING046)
  1713.         Case "1"
  1714.             STRING135 = String(INTEGER012)
  1715.         Case "2"
  1716.             STRING135 = String(INTEGER013)
  1717.         Case "3"
  1718.             STRING135 = String(INTEGER014)
  1719.         Case "4"
  1720.             STRING135 = String(STRING029)
  1721.         Case "5"
  1722.             STRING135 = String(STRING030)
  1723.         Case "6"
  1724.             STRING135 = String(STRING031)
  1725.         Case "7"
  1726.             STRING135 = String(STRING032)
  1727.         Case "8"
  1728.             STRING135 = String(STRING033)
  1729.         Case "9"
  1730.             STRING135 = String(STRING034)
  1731.         Case "0"
  1732.             STRING135 = String(STRING035)
  1733.         Case Else
  1734.             PROC015()
  1735.     End Select
  1736.  
  1737.     EndProc
  1738.  
  1739.  
  1740. ;------------------------------------------------------------------------------
  1741.  
  1742.     Procedure PROC045()
  1743.  
  1744.     StartDisp 1
  1745.     Cls
  1746.     PrintLn 
  1747.     PrintLn 
  1748.     PrintLn "       @X0B           Welcome To The PCBoard Post Office!      "
  1749.     PrintLn "       @X0D           -----------------------------------      "
  1750.     PrintLn "                                                               "
  1751.     PrintLn "@X0A   The @X0BPCBoard Post Office @X0Ais the @X0EFIRST FULL FEATURED POST OFFICE"
  1752.     PrintLn "@X0A   written for PCBoard.  PCB Post Office is brought to you by"
  1753.     PrintLn "@X0A   Richard Ploski & Associates, The GCIN Network, and Instant"
  1754.     PrintLn "@X0A   Global Access BBS.  For Technical Assistance and Product support"
  1755.     PrintLn "@X0A   and Information please call or send EMail to:"
  1756.     PrintLn 
  1757.     PrintLn "                         @X0DBBS@X0A: @X0B 1-914-381-2390"
  1758.     PrintLn "                         @X0DFAX@X0A: @X0B 1-914-777-1927"
  1759.     PrintLn "                       @X0DVoice@X0A: @X0B 1-914-381-9272"
  1760.     PrintLn "                    @X0DInternet@X0A:@X0B  support@ploski.com"
  1761.     PrintLn "                     @X0DFidonet@X0A:@X0B  Richard Ploski@1:2625/120"
  1762.     PrintLn 
  1763.     PrintLn 
  1764.     PROC014()
  1765.     If (Upper((STRING012 == "Y"))) Then
  1766.         STRING012 = ""
  1767.         PROC015()
  1768.     Endif
  1769.     Cls
  1770.     PrintLn 
  1771.     PrintLn 
  1772.     PrintLn "@X0E    The PCBoard Post Office allows you to build and maintain"
  1773.     PrintLn "@X0E    Address Books and Mailing Lists for Local Mail, Fidonet and"
  1774.     PrintLn "@X0E    The Internet!                                        "
  1775.     PrintLn "                                                             "
  1776.     PrintLn "@X0A    It's simple....                                      "
  1777.     PrintLn "                                                             "
  1778.     PrintLn "@X07[@X0EA@X07]@X0A Command@X0C:                             "
  1779.     PrintLn "@X0D------------                                             "
  1780.     PrintLn "@X0A                                                         "
  1781.     PrintLn "    First: use command @X0B[@X0EA@X0B]@X0A to @X0EEnter Your Address Book@X0A...      "
  1782.     PrintLn "                                                              "
  1783.     PrintLn "    Next: use command @X0B[@X0EE@X0B]@X0A to @X0EEdit Your Records@X0A.               "
  1784.     PrintLn "                                                              "
  1785.     PrintLn "    Use the @X0B[@X0EW@X0B]@X0A command to @X0EChoose Who@X0A you want to write to...."
  1786.     PrintLn "                                                              "
  1787.     PrintLn "    Use the @X0B[@X0ED@X0B]@X0A command to@X0E Delete your Address Book@X0A and start over..."
  1788.     PrintLn "        If you wish to @X0EChange a Record @X0B[@X0EE@X0B]@X0Adit it...  "
  1789.     PrintLn "                                                     "
  1790.     PROC014()
  1791.     If (Upper((STRING012 == "Y"))) Then
  1792.         STRING012 = ""
  1793.         PROC015()
  1794.     Endif
  1795.     Cls
  1796.     PrintLn "                                                     "
  1797.     PrintLn "@X07[@X0EW@X07]@X0A Command@X0C:                     "
  1798.     PrintLn "@X0D------------                                     "
  1799.     PrintLn "@X0A                                                 "
  1800.     PrintLn "    Use the @X0B[@X0EW@X0B] @X0Acommand to @X0EWrite a Message           "
  1801.     PrintLn "                                                     "
  1802.     PrintLn "   @X0A Choose the person you wish to write to from your Address Book"
  1803.     PrintLn "                                                               "
  1804.     PrintLn "    Use the @X0B[@X0EO@X0B]@X0Ather command to @X0EWrite To Someone Not In Your List@X0A"
  1805.     PrintLn 
  1806.     PrintLn 
  1807.     PrintLn "@X07[@X0EY@X07]@X0A Command@X0C:"
  1808.     PrintLn "@X0D------------       "
  1809.     PrintLn "@X0A                   "
  1810.     PrintLn "    The @X0B[@X0EY@X0B] @X0Acommand displays @X0EYour EMail Addresses@X0A on this system"
  1811.     PrintLn "                                                             "
  1812.     PROC014()
  1813.     If (Upper((STRING012 == "Y"))) Then
  1814.         STRING012 = ""
  1815.         PROC015()
  1816.     Endif
  1817.     Cls
  1818.     PrintLn "                                                             "
  1819.     PrintLn "@X07[@X0EN@X07]@X0A Command@X0C:                             "
  1820.     PrintLn "@X0D------------                                             "
  1821.     PrintLn "@X0A                                                         "
  1822.     PrintLn "    Use the @X0B[@X0EN@X0B] @X0Acommand to send a @X0ENote to the SysOp   @X0A "
  1823.     PrintLn "                                                             "
  1824.     PrintLn "                                                             "
  1825.     PrintLn "@X07[@X0EH@X07]@X0A Command@X0C:                             "
  1826.     PrintLn "@X0D------------                                             "
  1827.     PrintLn "@X0A                                                         "
  1828.     PrintLn "    The @X0B[@X0EH@X0B] @X0Acommand provides @X0EOnline Help @X0A   "
  1829.     PrintLn "                                                             "
  1830.     PROC014()
  1831.     If (Upper((STRING012 == "Y"))) Then
  1832.         STRING012 = ""
  1833.         PROC015()
  1834.     Endif
  1835.     Cls
  1836.     PrintLn "                                                             "
  1837.     PrintLn "@X07[@X0ES@X07]@X0A Command@X0C:                             "
  1838.     PrintLn "@X0D------------                                             "
  1839.     PrintLn "@X0A                                                         "
  1840.     PrintLn "    Use the @X0B[@X0ES@X0B]@X0Acan to @X0ESearch Your Mailbox@X0A for messages to you"
  1841.     PrintLn "                                                             "
  1842.     PrintLn "        You may choose to search:  @X0B1 @X0D- @X0ELocal Mail            "
  1843.     PrintLn "                                   @X0B2 @X0D- @X0EFidonet Netmail       "
  1844.     PrintLn "                                   @X0B3 @X0D- @X0EInternet EMail        "
  1845.     PrintLn "                                   @X0BA @X0D- @X0EAll Mail              "
  1846.     PrintLn "                                                             "
  1847.     PrintLn "@X07[@X0EM@X07]@X0A Command@X0C:"
  1848.     PrintLn "@X0D------------"
  1849.     PrintLn "@X0A"
  1850.     PrintLn "    The @X0B[@X0EM@X0B]@X0A command accesses your @X0EMailing Lists@X0A."
  1851.     PrintLn 
  1852.     PROC014()
  1853.     If (Upper((STRING012 == "Y"))) Then
  1854.         STRING012 = ""
  1855.         PROC015()
  1856.     Endif
  1857.     Cls
  1858.     PrintLn 
  1859.     PrintLn "@X07[@X0EC@X07]@X0A Command@X0C:"
  1860.     PrintLn "@X0D------------"
  1861.     PrintLn "@X0A"
  1862.     PrintLn "    Use the @X0B[@X0EC@X0B]@X0A command to scan @X0EMail That YOU Sent@X0A"
  1863.     PrintLn 
  1864.     PrintLn "        You may choose to search for mail from you in:"
  1865.     PrintLn "                   @X0B1 @X0D- @X0ELocal Mail       "
  1866.     PrintLn "                   @X0B2 @X0D- @X0EFidonet Netmail  "
  1867.     PrintLn "                   @X0B3 @X0D- @X0EInternet EMail   "
  1868.     PrintLn "                   @X0BA @X0D- @X0EAll Mail         "
  1869.     PrintLn 
  1870.     PrintLn 
  1871.     PrintLn "@X07[@X0EG@X07]@X0A Command@X0C:"
  1872.     PrintLn "@X0D------------"
  1873.     PrintLn "@X0A"
  1874.     PrintLn "    Use the @X0B[@X0EG@X0B]@X0A command to @X0EDisconnect@X0A from the BBS"
  1875.     PrintLn 
  1876.     PROC014()
  1877.     If (Upper((STRING012 == "Y"))) Then
  1878.         STRING012 = ""
  1879.         PROC015()
  1880.     Endif
  1881.     Cls
  1882.     PrintLn 
  1883.     PrintLn "@X07[@X0EQ@X07]@X0A Command@X0C:"
  1884.     PrintLn "@X0D------------"
  1885.     PrintLn "@X0A"
  1886.     PrintLn "    Use the @X0B[@X0EQ@X0B]@X0A command to @X0ELeave the Post Office@X0A and"
  1887.     PrintLn "    re-enter the BBS"
  1888.     PrintLn 
  1889.     PROC013()
  1890.     StartDisp 0
  1891.     Return
  1892.  
  1893.     EndProc
  1894.  
  1895.  
  1896. ;------------------------------------------------------------------------------
  1897.  
  1898.     Procedure PROC013()
  1899.  
  1900.     String   STRING157
  1901.     Integer  INTEGER019
  1902.     Integer  INTEGER020
  1903.     String   STRING158
  1904.     String   TSTRING159(3)
  1905.     String   STRING160
  1906.     String   TSTRING161(3)
  1907.     String   TSTRING162(6)
  1908.  
  1909.     STRING157 = Chr(13)
  1910.     TSTRING161(1) = "@X03Press"
  1911.     TSTRING161(2) = "@X0BEnter"
  1912.     TSTRING161(3) = "@X03to continue"
  1913.     TSTRING159(0) = "@X0B|"
  1914.     TSTRING159(1) = "@X0D\"
  1915.     TSTRING159(2) = "@X0E-"
  1916.     TSTRING159(3) = "@X0C/"
  1917.     TSTRING159(4) = "@X0A"
  1918.     STRING160 = " " + TSTRING162(4) + " " + TSTRING161(1) + " " + TSTRING162(5) + "@X0A[" + TSTRING162(3) + TSTRING161(2) + TSTRING162(5) + "@X0A]" + TSTRING162(4) + " " + TSTRING161(3) + " "
  1919.     If (GrafMode() == "N") Then
  1920.         Print TSTRING161(1) + " (" + TSTRING161(2) + ") " + TSTRING161(3)
  1921.         End
  1922.     Else
  1923.         INTEGER020 = GetY()
  1924.         AnsiPos 23, INTEGER020
  1925.         Print STRING160
  1926.     Endif
  1927.     While (STRING158 <> STRING157) Do
  1928.         AnsiPos 22, INTEGER020
  1929.         Print TSTRING162(1)
  1930.         Print TSTRING159(3 - INTEGER019 % 4)
  1931.         AnsiPos 52, INTEGER020
  1932.         Print TSTRING162(2)
  1933.         Print TSTRING159(INTEGER019 % 4)
  1934.         Delay 1
  1935.         Inc INTEGER019
  1936.         STRING158 = Inkey()
  1937.     EndWhile
  1938.  
  1939.     EndProc
  1940.  
  1941.  
  1942. ;------------------------------------------------------------------------------
  1943.  
  1944.     Procedure PROC040()
  1945.  
  1946.     Select Case (STRING046)
  1947.         Case "Q"
  1948.             Return
  1949.         Case "A"
  1950.             STRING058 = STRING091
  1951.             INTEGER011 = STRING081
  1952.         Case "B"
  1953.             STRING058 = STRING092
  1954.             INTEGER011 = STRING082
  1955.         Case "C"
  1956.             STRING058 = STRING093
  1957.             INTEGER011 = STRING083
  1958.         Case "D"
  1959.             STRING058 = STRING094
  1960.             INTEGER011 = STRING084
  1961.         Case "E"
  1962.             STRING058 = STRING095
  1963.             INTEGER011 = STRING085
  1964.         Case "F"
  1965.             STRING058 = STRING096
  1966.             INTEGER011 = STRING086
  1967.         Case "G"
  1968.             STRING058 = STRING097
  1969.             INTEGER011 = STRING087
  1970.         Case "H"
  1971.             STRING058 = STRING098
  1972.             INTEGER011 = STRING088
  1973.         Case "I"
  1974.             STRING058 = STRING099
  1975.             INTEGER011 = STRING089
  1976.         Case "J"
  1977.             STRING058 = STRING100
  1978.             INTEGER011 = STRING090
  1979.         Case Else
  1980.             Return
  1981.     End Select
  1982.     If (Trim(STRING058, " ") == "") Then
  1983.         PROC022()
  1984.     Endif
  1985.     Select Case (INTEGER011)
  1986.         Case INTEGER012
  1987.             STRING057 = STRING052
  1988.         Case INTEGER013
  1989.             STRING057 = STRING053
  1990.             If (CurSec() < INTEGER006) Then
  1991.                 PrintLn 
  1992.                 PrintLn "@X0C Sorry but you don't have access to this feature! "
  1993.                 PrintLn "@X0A Please contact the SysOp for access...."
  1994.                 PrintLn 
  1995.                 PROC013()
  1996.                 PROC022()
  1997.             Endif
  1998.             If (Upper(STRING067) == "Y") Then
  1999.                 STRING057 = STRING054
  2000.                 ShowOff
  2001.                 Join STRING057 + ";Q"
  2002.                 ShowOn
  2003.                 If (CurSec() >= INTEGER005) Then
  2004.                     PrintLn 
  2005.                     InputStr "@X0A Route@X07 [@X0ED@X07]@X0Airect or through@X07 [@X0EI@X07]@X0Anternet", STRING046, 14, 1, "DI", 8
  2006.                     If (STRING046 == "I") Then
  2007.                         PROC004()
  2008.                         KbdStuff STRING036 + STRING045
  2009.                         Command 0, "E"
  2010.                         PROC022()
  2011.                         Goto LABEL006
  2012.                     Endif
  2013.                     If (STRING046 == "D") Then
  2014.                         ShowOff
  2015.                         STRING057 = STRING053
  2016.                         Join STRING057 + ";Q"
  2017.                         ShowOn
  2018.                         KbdStuff STRING058 + STRING045
  2019.                         Command 0, "E"
  2020.                         PROC022()
  2021.                         Goto LABEL006
  2022.                     Endif
  2023.                     PROC022()
  2024.                 Endif
  2025.                 :LABEL006
  2026.                 PROC004()
  2027.                 KbdStuff STRING036 + STRING045
  2028.                 Command 0, "E"
  2029.                 PROC022()
  2030.             Endif
  2031.         Case INTEGER014
  2032.             STRING058 = ReplaceStr(STRING058, " ", ".")
  2033.             PROC003()
  2034.             STRING057 = STRING054
  2035.             If (Upper(STRING068) == "Y") Then
  2036.                 ShowOff
  2037.                 STRING057 = STRING053
  2038.                 Join STRING057 + ";Q"
  2039.                 ShowOn
  2040.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2041.                 PrintLn 
  2042.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2043.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2044.                 Command 0, "E"
  2045.                 PROC022()
  2046.             Endif
  2047.         Case STRING029
  2048.             PROC003()
  2049.             STRING057 = STRING054
  2050.             If (Upper(STRING068) == "Y") Then
  2051.                 ShowOff
  2052.                 STRING057 = STRING053
  2053.                 Join STRING057 + ";Q"
  2054.                 ShowOn
  2055.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2056.                 PrintLn 
  2057.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2058.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2059.                 Command 0, "E"
  2060.                 PROC022()
  2061.             Endif
  2062.         Case STRING030
  2063.             PROC003()
  2064.             STRING058 = ReplaceStr(STRING058, ",", ".")
  2065.             STRING057 = STRING054
  2066.             If (Upper(STRING068) == "Y") Then
  2067.                 ShowOff
  2068.                 STRING057 = STRING053
  2069.                 Join STRING057 + ";Q"
  2070.                 ShowOn
  2071.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2072.                 PrintLn 
  2073.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2074.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2075.                 Command 0, "E"
  2076.                 PROC022()
  2077.             Endif
  2078.         Case STRING031
  2079.             PROC003()
  2080.             STRING057 = STRING054
  2081.             If (Upper(STRING068) == "Y") Then
  2082.                 ShowOff
  2083.                 STRING057 = STRING053
  2084.                 Join STRING057 + ";Q"
  2085.                 ShowOn
  2086.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2087.                 PrintLn 
  2088.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2089.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2090.                 Command 0, "E"
  2091.                 PROC022()
  2092.             Endif
  2093.         Case STRING032
  2094.             PROC003()
  2095.             STRING057 = STRING054
  2096.             If (Upper(STRING068) == "Y") Then
  2097.                 ShowOff
  2098.                 STRING057 = STRING053
  2099.                 Join STRING057 + ";Q"
  2100.                 ShowOn
  2101.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2102.                 PrintLn 
  2103.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2104.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2105.                 Command 0, "E"
  2106.                 PROC022()
  2107.             Endif
  2108.         Case STRING033
  2109.             PROC003()
  2110.             STRING057 = STRING054
  2111.             If (Upper(STRING068) == "Y") Then
  2112.                 ShowOff
  2113.                 STRING057 = STRING053
  2114.                 Join STRING057 + ";Q"
  2115.                 ShowOn
  2116.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2117.                 PrintLn 
  2118.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2119.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2120.                 Command 0, "E"
  2121.                 PROC022()
  2122.             Endif
  2123.         Case STRING034
  2124.             PROC003()
  2125.             STRING057 = STRING054
  2126.             If (Upper(STRING068) == "Y") Then
  2127.                 ShowOff
  2128.                 STRING057 = STRING053
  2129.                 Join STRING057 + ";Q"
  2130.                 ShowOn
  2131.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2132.                 PrintLn 
  2133.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2134.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2135.                 Command 0, "E"
  2136.                 PROC021()
  2137.             Endif
  2138.         Case STRING035
  2139.             PROC003()
  2140.             STRING057 = STRING054
  2141.             If (Upper(STRING068) == "Y") Then
  2142.                 ShowOff
  2143.                 STRING057 = STRING053
  2144.                 Join STRING057 + ";Q"
  2145.                 ShowOn
  2146.                 STRING039 = "UUCP@" + STRING038 + STRING045
  2147.                 PrintLn 
  2148.                 InputStr " Subject", STRING037, 14, 20, Mask_Ascii(), 0
  2149.                 KbdStuff STRING039 + STRING037 + STRING045 + STRING045 + "To: " + STRING058 + STRING045 + STRING045
  2150.                 Command 0, "E"
  2151.                 PROC021()
  2152.             Endif
  2153.         Case Else
  2154.             PROC022()
  2155.     End Select
  2156.     ShowOff
  2157.     Join STRING057 + ";Q"
  2158.     ShowOn
  2159.     KbdStuff STRING058 + STRING045
  2160.     Command 0, "E"
  2161.     PROC022()
  2162.  
  2163.     EndProc
  2164.  
  2165.  
  2166. ;------------------------------------------------------------------------------
  2167.  
  2168.     Procedure PROC006()
  2169.  
  2170.     Integer  INTEGER021
  2171.  
  2172.     Cls
  2173.     PROC017()
  2174.     PrintLn 
  2175.     PrintLn 
  2176.     INTEGER021 = 18 - Len(STRING002)
  2177.     PrintLn "                @X0EA @X0A- " + STRING002 + Space(INTEGER021) + "       @X0EF @X0A- " + STRING007
  2178.     INTEGER021 = 18 - Len(STRING003)
  2179.     PrintLn "                @X0EB @X0A- " + STRING003 + Space(INTEGER021) + "       @X0EG @X0A- " + STRING008
  2180.     INTEGER021 = 18 - Len(STRING004)
  2181.     PrintLn "                @X0EC @X0A- " + STRING004 + Space(INTEGER021) + "       @X0EH @X0A- " + STRING009
  2182.     INTEGER021 = 18 - Len(STRING005)
  2183.     PrintLn "                @X0ED @X0A- " + STRING005 + Space(INTEGER021) + "       @X0EI @X0A- " + STRING010
  2184.     INTEGER021 = 18 - Len(STRING006)
  2185.     PrintLn "                @X0EE @X0A- " + STRING006 + Space(INTEGER021) + "       @X0EJ @X0A- " + STRING011
  2186.     PrintLn 
  2187.     InputStr " @X0FAddress Book To Use", STRING046, 14, 1, "QABCDEFGHIJ", 8
  2188.     If (STRING046 == "Q") Then
  2189.         PROC015()
  2190.     Else
  2191.         PROC008()
  2192.     Endif
  2193.     Select Case (STRING046)
  2194.         Case "A"
  2195.             STRING123 = STRING124
  2196.             STRING122 = STRING002
  2197.             PROC021()
  2198.         Case "B"
  2199.             STRING123 = STRING125
  2200.             STRING122 = STRING003
  2201.             PROC021()
  2202.         Case "C"
  2203.             STRING123 = STRING126
  2204.             STRING122 = STRING004
  2205.             PROC021()
  2206.         Case "D"
  2207.             STRING123 = STRING127
  2208.             STRING122 = STRING005
  2209.             PROC021()
  2210.         Case "E"
  2211.             STRING123 = STRING128
  2212.             STRING122 = STRING006
  2213.             PROC021()
  2214.         Case "F"
  2215.             STRING123 = STRING129
  2216.             STRING122 = STRING007
  2217.             PROC021()
  2218.         Case "G"
  2219.             STRING123 = STRING130
  2220.             STRING122 = STRING008
  2221.             PROC021()
  2222.         Case "H"
  2223.             STRING123 = STRING131
  2224.             STRING122 = STRING009
  2225.             PROC021()
  2226.         Case "I"
  2227.             STRING123 = STRING132
  2228.             STRING122 = STRING010
  2229.             PROC021()
  2230.         Case "J"
  2231.             STRING123 = STRING133
  2232.             STRING122 = STRING011
  2233.             PROC021()
  2234.         Case Else
  2235.             PROC006()
  2236.     End Select
  2237.  
  2238.     EndProc
  2239.  
  2240.  
  2241. ;------------------------------------------------------------------------------
  2242.  
  2243.     Procedure PROC009()
  2244.  
  2245.     String   STRING163
  2246.  
  2247.     PROC017()
  2248.     Select Case (STRING123)
  2249.         Case ".ADD"
  2250.             STRING163 = ".NOT"
  2251.         Case ".AD2"
  2252.             STRING163 = ".NO2"
  2253.         Case ".AD3"
  2254.             STRING163 = ".NO3"
  2255.         Case ".AD4"
  2256.             STRING163 = ".NO4"
  2257.         Case ".AD5"
  2258.             STRING163 = ".NO5"
  2259.         Case ".AD6"
  2260.             STRING163 = ".NO6"
  2261.         Case ".AD7"
  2262.             STRING163 = ".NO7"
  2263.         Case ".AD8"
  2264.             STRING163 = ".NO8"
  2265.         Case ".AD9"
  2266.             STRING163 = ".NO9"
  2267.         Case ".A10"
  2268.             STRING163 = ".N10"
  2269.     End Select
  2270.     ShowOff
  2271.     STRING013 = STRING055 + STRING056 + "\" + STRING066 + STRING163
  2272.     FOpen 9, STRING013, 0, 0
  2273.     ShowOn
  2274.     If (Ferr(9)) Then
  2275.         PrintLn STRING044
  2276.         PrintLn "@X0BNote Book Not Found!  Starting New...@X0E"
  2277.         PrintLn 
  2278.         FClose 9
  2279.         PROC010()
  2280.         Return
  2281.     Else
  2282.         FGet 9, STRING112
  2283.         FGet 9, STRING113
  2284.         FGet 9, STRING114
  2285.         FGet 9, STRING115
  2286.         FGet 9, STRING116
  2287.         FGet 9, STRING117
  2288.         FGet 9, STRING118
  2289.         FGet 9, STRING119
  2290.         FGet 9, STRING120
  2291.         FGet 9, STRING121
  2292.     Endif
  2293.     FClose 9
  2294.  
  2295.     EndProc
  2296.  
  2297.  
  2298. ;------------------------------------------------------------------------------
  2299.  
  2300.     Procedure PROC010()
  2301.  
  2302.     String   STRING164
  2303.     String   STRING165
  2304.  
  2305.     PROC017()
  2306.     PROC035()
  2307.     Select Case (STRING123)
  2308.         Case ".ADD"
  2309.             STRING165 = ".NOT"
  2310.         Case ".AD2"
  2311.             STRING165 = ".NO2"
  2312.         Case ".AD3"
  2313.             STRING165 = ".NO3"
  2314.         Case ".AD4"
  2315.             STRING165 = ".NO4"
  2316.         Case ".AD5"
  2317.             STRING165 = ".NO5"
  2318.         Case ".AD6"
  2319.             STRING165 = ".NO6"
  2320.         Case ".AD7"
  2321.             STRING165 = ".NO7"
  2322.         Case ".AD8"
  2323.             STRING165 = ".NO8"
  2324.         Case ".AD9"
  2325.             STRING165 = ".NO9"
  2326.         Case ".A10"
  2327.             STRING165 = ".N10"
  2328.     End Select
  2329.     STRING164 = STRING055 + STRING056 + "\" + STRING066 + STRING165
  2330.     InputStr " Note To edit", STRING046, 14, 1, "QABCDEFGHIJ", 8
  2331.     PrintLn 
  2332.     If (Upper((STRING046 == "Q"))) Then
  2333.         PROC021()
  2334.     Else
  2335.         Select Case (STRING046)
  2336.             Case ""
  2337.                 PROC021()
  2338.             Case "A"
  2339.                 InputStr "Note", STRING112, 10, 30, Mask_Ascii(), 0
  2340.             Case "B"
  2341.                 InputStr "Note", STRING113, 10, 30, Mask_Ascii(), 0
  2342.             Case "C"
  2343.                 InputStr "Note", STRING114, 10, 30, Mask_Ascii(), 0
  2344.             Case "D"
  2345.                 InputStr "Note", STRING115, 10, 30, Mask_Ascii(), 0
  2346.             Case "E"
  2347.                 InputStr "Note", STRING116, 10, 30, Mask_Ascii(), 0
  2348.             Case "F"
  2349.                 InputStr "Note", STRING117, 10, 30, Mask_Ascii(), 0
  2350.             Case "G"
  2351.                 InputStr "Note", STRING118, 10, 30, Mask_Ascii(), 0
  2352.             Case "H"
  2353.                 InputStr "Note", STRING119, 10, 30, Mask_Ascii(), 0
  2354.             Case "I"
  2355.                 InputStr "Note", STRING120, 10, 30, Mask_Ascii(), 0
  2356.             Case "J"
  2357.                 InputStr "Note", STRING121, 10, 30, Mask_Ascii(), 0
  2358.             Case Else
  2359.                 PROC021()
  2360.             Endif
  2361.     End Select
  2362.     Delete STRING164
  2363.     FAppend 5, STRING164, 2, 0
  2364.     FPut 5, STRING112 + STRING045
  2365.     FPut 5, STRING113 + STRING045
  2366.     FPut 5, STRING114 + STRING045
  2367.     FPut 5, STRING115 + STRING045
  2368.     FPut 5, STRING116 + STRING045
  2369.     FPut 5, STRING117 + STRING045
  2370.     FPut 5, STRING118 + STRING045
  2371.     FPut 5, STRING119 + STRING045
  2372.     FPut 5, STRING120 + STRING045
  2373.     FPut 5, STRING121 + STRING045
  2374.     FClose 5
  2375.     Cls
  2376.     PROC010()
  2377.  
  2378.     EndProc
  2379.  
  2380.  
  2381. ;------------------------------------------------------------------------------
  2382.  
  2383.     Procedure PROC008()
  2384.  
  2385.     STRING071 = ""
  2386.     STRING072 = ""
  2387.     STRING073 = ""
  2388.     STRING074 = ""
  2389.     STRING075 = ""
  2390.     STRING076 = ""
  2391.     STRING077 = ""
  2392.     STRING078 = ""
  2393.     STRING079 = ""
  2394.     STRING080 = ""
  2395.     STRING081 = ""
  2396.     STRING082 = ""
  2397.     STRING083 = ""
  2398.     STRING084 = ""
  2399.     STRING085 = ""
  2400.     STRING086 = ""
  2401.     STRING087 = ""
  2402.     STRING088 = ""
  2403.     STRING089 = ""
  2404.     STRING090 = ""
  2405.     STRING091 = ""
  2406.     STRING092 = ""
  2407.     STRING093 = ""
  2408.     STRING094 = ""
  2409.     STRING095 = ""
  2410.     STRING096 = ""
  2411.     STRING097 = ""
  2412.     STRING098 = ""
  2413.     STRING099 = ""
  2414.     STRING100 = ""
  2415.     STRING102 = ""
  2416.     STRING103 = ""
  2417.     STRING104 = ""
  2418.     STRING105 = ""
  2419.     STRING106 = ""
  2420.     STRING107 = ""
  2421.     STRING108 = ""
  2422.     STRING109 = ""
  2423.     STRING110 = ""
  2424.     STRING111 = ""
  2425.     STRING112 = ""
  2426.     STRING113 = ""
  2427.     STRING114 = ""
  2428.     STRING115 = ""
  2429.     STRING116 = ""
  2430.     STRING117 = ""
  2431.     STRING118 = ""
  2432.     STRING119 = ""
  2433.     STRING120 = ""
  2434.     STRING121 = ""
  2435.     Return
  2436.  
  2437.     EndProc
  2438.  
  2439.  
  2440. ;------------------------------------------------------------------------------
  2441.  
  2442.     Procedure PROC007()
  2443.  
  2444.     Integer  INTEGER022
  2445.  
  2446.     Cls
  2447.     PROC017()
  2448.     PrintLn 
  2449.     PrintLn 
  2450.     INTEGER022 = 18 - Len(STRING002)
  2451.     PrintLn "                @X0EA @X0A- " + STRING002 + Space(INTEGER022) + "       @X0EF @X0A- " + STRING007
  2452.     INTEGER022 = 18 - Len(STRING003)
  2453.     PrintLn "                @X0EB @X0A- " + STRING003 + Space(INTEGER022) + "       @X0EG @X0A- " + STRING008
  2454.     INTEGER022 = 18 - Len(STRING004)
  2455.     PrintLn "                @X0EC @X0A- " + STRING004 + Space(INTEGER022) + "       @X0EH @X0A- " + STRING009
  2456.     INTEGER022 = 18 - Len(STRING005)
  2457.     PrintLn "                @X0ED @X0A- " + STRING005 + Space(INTEGER022) + "       @X0EI @X0A- " + STRING010
  2458.     INTEGER022 = 18 - Len(STRING006)
  2459.     PrintLn "                @X0EA @X0A- " + STRING006 + Space(INTEGER022) + "       @X0EJ @X0A- " + STRING011
  2460.     PrintLn 
  2461.     InputStr " @X0FAddress Book To Use", STRING046, 14, 1, "QABCDEFGHIJ", 8
  2462.     If (STRING046 == "Q") Then
  2463.         PROC015()
  2464.     Else
  2465.         PROC008()
  2466.     Endif
  2467.     Select Case (STRING046)
  2468.         Case "A"
  2469.             STRING123 = STRING124
  2470.             STRING122 = STRING002
  2471.             PROC022()
  2472.         Case "B"
  2473.             STRING123 = STRING125
  2474.             STRING122 = STRING003
  2475.             PROC022()
  2476.         Case "C"
  2477.             STRING123 = STRING126
  2478.             STRING122 = STRING004
  2479.             PROC022()
  2480.         Case "D"
  2481.             STRING123 = STRING127
  2482.             STRING122 = STRING005
  2483.             PROC022()
  2484.         Case "E"
  2485.             STRING123 = STRING128
  2486.             STRING122 = STRING006
  2487.             PROC022()
  2488.         Case "F"
  2489.             STRING123 = STRING129
  2490.             STRING122 = STRING007
  2491.             PROC022()
  2492.         Case "G"
  2493.             STRING123 = STRING130
  2494.             STRING122 = STRING008
  2495.             PROC022()
  2496.         Case "H"
  2497.             STRING123 = STRING131
  2498.             STRING122 = STRING009
  2499.             PROC022()
  2500.         Case "I"
  2501.             STRING123 = STRING132
  2502.             STRING122 = STRING010
  2503.             PROC022()
  2504.         Case "J"
  2505.             STRING123 = STRING133
  2506.             STRING122 = STRING011
  2507.             PROC022()
  2508.         Case Else
  2509.             PROC007()
  2510.     End Select
  2511.  
  2512.     EndProc
  2513.  
  2514.  
  2515. ;------------------------------------------------------------------------------
  2516.  
  2517.     Procedure PROC016()
  2518.  
  2519.     Cls
  2520.     PrintLn " @X14                   ███                                                       @X0B"
  2521.     PrintLn " @X17      @X17▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X14█@X17▄▄          @X1B ────────────────────────────────────────  @X0B"
  2522.     PrintLn " @X17     @X17 ███████████████@X14█@X17██@X1F▄▄▄▄       @X1B                ■ ╖ ╖                     @X0B"
  2523.     PrintLn " @X17     @X17 ██████████████████@X1F████       @X1B         ╓╥╖ ┌╖ ╖ ║ ╟╖ ╓╖ ╖/              @X0B"
  2524.     PrintLn " @X17     @X17 ██████████████████▄▄▄▄▄▄▄    @X1B         ╙╙╙ └╨ ╙ ╙ ╙╜ ╙╜ /╙              @X0B"
  2525.     PrintLn " @X17             @X16████                                                            @X0B"
  2526.     PrintLn " @X17             @X16████                                                            @X0B"
  2527.     PrintLn " @X17             @X16████                                                            @X0B"
  2528.     PrintLn 
  2529.  
  2530.     EndProc
  2531.  
  2532.  
  2533. ;------------------------------------------------------------------------------
  2534.  
  2535.     Procedure PROC004()
  2536.  
  2537.     String   STRING166
  2538.     String   STRING167
  2539.     String   STRING168
  2540.     String   STRING169
  2541.     String   STRING170
  2542.     String   STRING171
  2543.     String   STRING172
  2544.     String   STRING173
  2545.     String   STRING174
  2546.  
  2547.     STRING166 = STRING064
  2548.     STRING167 = STRING063
  2549.     INTEGER002 = InStr(STRING058, "@")
  2550.     STRING168 = Left(STRING058, INTEGER002 - 1)
  2551.     STRING169 = Mid(STRING058, INTEGER002 + 1, 20)
  2552.     INTEGER001 = InStr(STRING169, " ")
  2553.     If (INTEGER001 > 0) Then
  2554.         STRING169 = Left(STRING169, INTEGER001 - 1)
  2555.     Endif
  2556.     INTEGER002 = 0
  2557.     INTEGER002 = InStr(STRING169, ":")
  2558.     STRING040 = Left(STRING169, INTEGER002 - 1)
  2559.     STRING041 = Mid(STRING169, INTEGER002 + 1, 20)
  2560.     INTEGER002 = 0
  2561.     INTEGER002 = InStr(STRING041, "/")
  2562.     STRING042 = Left(STRING041, INTEGER002 - 1)
  2563.     STRING043 = Trim(Mid(STRING041, INTEGER002 + 1, 6), " ")
  2564.     INTEGER002 = 0
  2565.     STRING174 = U_Name()
  2566.     STRING172 = "@X0A  Your Internet EMail address is @X0E:@X0B "
  2567.     STRING063 = "@" + STRING063
  2568.     STRING171 = "@X0A  Your Fidonet EMail address is @X0E:@X0B "
  2569.     STRING064 = "@" + STRING064
  2570.     STRING170 = Replace(Lower(U_Name()), " ", ".")
  2571.     STRING043 = "@f" + STRING043 + "."
  2572.     STRING042 = "n" + STRING042 + "."
  2573.     STRING040 = "z" + STRING040 + ".fidonet.org"
  2574.     STRING036 = STRING168 + STRING043 + STRING042 + STRING040
  2575.     STRING040 = ""
  2576.     STRING042 = ""
  2577.     STRING043 = ""
  2578.     STRING171 = ""
  2579.     STRING173 = ""
  2580.     STRING172 = ""
  2581.     STRING064 = STRING166
  2582.     STRING063 = STRING167
  2583.  
  2584.     EndProc
  2585.  
  2586.  
  2587. ;------------------------------------------------------------------------------
  2588.  
  2589.     Procedure PROC035()
  2590.  
  2591.     STRING102 = Trim(Left(STRING091, 30), " ")
  2592.     STRING103 = Trim(Left(STRING092, 30), " ")
  2593.     STRING104 = Trim(Left(STRING093, 30), " ")
  2594.     STRING105 = Trim(Left(STRING094, 30), " ")
  2595.     STRING106 = Trim(Left(STRING095, 30), " ")
  2596.     STRING107 = Trim(Left(STRING096, 30), " ")
  2597.     STRING108 = Trim(Left(STRING097, 30), " ")
  2598.     STRING109 = Trim(Left(STRING098, 30), " ")
  2599.     STRING110 = Trim(Left(STRING099, 30), " ")
  2600.     STRING111 = Trim(Left(STRING100, 30), " ")
  2601.     PrintLn "@X0F                Address                           Notes"
  2602.     INTEGER015 = 30 - Len(STRING091)
  2603.     INTEGER016 = 30 - Len(STRING112)
  2604.     PrintLn "@X0A A @X0E- @X0A" + STRING102 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING112 + Space(INTEGER016) + "@X07"
  2605.     INTEGER015 = 30 - Len(STRING092)
  2606.     INTEGER016 = 30 - Len(STRING113)
  2607.     PrintLn "@X0A B @X0E- @X0A" + STRING103 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING113 + Space(INTEGER016) + "@X07"
  2608.     INTEGER015 = 30 - Len(STRING093)
  2609.     INTEGER016 = 30 - Len(STRING114)
  2610.     PrintLn "@X0A C @X0E- @X0A" + STRING104 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING114 + Space(INTEGER016) + "@X07"
  2611.     INTEGER015 = 30 - Len(STRING094)
  2612.     INTEGER016 = 30 - Len(STRING115)
  2613.     PrintLn "@X0A D @X0E- @X0A" + STRING105 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING115 + Space(INTEGER016) + "@X07"
  2614.     INTEGER015 = 30 - Len(STRING095)
  2615.     INTEGER016 = 30 - Len(STRING116)
  2616.     PrintLn "@X0A E @X0E- @X0A" + STRING106 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING116 + Space(INTEGER016) + "@X07"
  2617.     INTEGER015 = 30 - Len(STRING096)
  2618.     INTEGER016 = 30 - Len(STRING117)
  2619.     PrintLn "@X0A F @X0E- @X0A" + STRING107 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING117 + Space(INTEGER016) + "@X07"
  2620.     INTEGER015 = 30 - Len(STRING097)
  2621.     INTEGER016 = 30 - Len(STRING118)
  2622.     PrintLn "@X0A G @X0E- @X0A" + STRING108 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING118 + Space(INTEGER016) + "@X07"
  2623.     INTEGER015 = 30 - Len(STRING098)
  2624.     INTEGER016 = 30 - Len(STRING119)
  2625.     PrintLn "@X0A H @X0E- @X0A" + STRING109 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING119 + Space(INTEGER016) + "@X07"
  2626.     INTEGER015 = 30 - Len(STRING099)
  2627.     INTEGER016 = 30 - Len(STRING120)
  2628.     PrintLn "@X0A I @X0E- @X0A" + STRING110 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING120 + Space(INTEGER016) + "@X07"
  2629.     INTEGER015 = 30 - Len(STRING100)
  2630.     INTEGER016 = 30 - Len(STRING121)
  2631.     PrintLn "@X0A J @X0E- @X0A" + STRING111 + "@X70" + Space(INTEGER015) + "@X07  @X70" + STRING121 + Space(INTEGER016) + "@X07"
  2632.  
  2633.     EndProc
  2634.  
  2635.  
  2636. ;------------------------------------------------------------------------------
  2637.  
  2638.     Procedure PROC046()
  2639.  
  2640.     Cls
  2641.     PrintLn 
  2642.     PrintLn "            @X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X00@X07"
  2643.     PrintLn "            @X78   ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄   @X07     "
  2644.     PrintLn "            @X07███@X1E                                                @X07███  "
  2645.     PrintLn "            @X07███@X1E           @X17[@X1ES@X17]@X1B.Scan/Join By Area Name           @X07███"
  2646.     PrintLn "            @X07███@X1E           @X17[@X1EJ@X17]@X1B........Join/List Areas           @X07███"
  2647.     PrintLn "            @X07███@X1E           @X17[@X1EA@X17]@X1B...Abandon Current Area           @X07███"
  2648.     PrintLn "            @X07███@X1E                                                @X07███  "
  2649.     PrintLn "            ███@X1E     @X17[@X1ER@X17]@X1B..Read Unread Messages In This Area     @X07███    "
  2650.     PrintLn "            @X07███@X1E     @X17[@X1ERA@X17]@X1B..Read Starting From 1st This Area     @X07███ "
  2651.     PrintLn "            @X07███@X1E     @X17[@X1EY@X17]@X1B....Read Your Messages In All Areas     @X07███@X07"
  2652.     PrintLn "            @X07███@X1E    @X17 [@X1EALL@X17]@X1B...Read All Messages In All Areas     @X07███@X07"
  2653.     PrintLn "            @X07███@X1E          @X17[@X1ESELECT@X17]@X1B..Set Areas For Scan          @X07███"
  2654.     PrintLn "            @X07███@X1E                                                @X07███ "
  2655.     PrintLn "            @X07███@X1E   @X17[@X1EW@X17]@X1B..Write A Message  @X17[@X1EQWK@X17]@X1B.......QWK Mail   @X07███ @X07"
  2656.     PrintLn "            @X07███@X1E  @X17 [@X1ESCAN@X17]@X1B.....Scan Menu  @X17[@X1EQ@X17]@X1B.............Quit   @X07███   "
  2657.     PrintLn "            @X07███@X1F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07███"
  2658.     PrintLn "            @X07██████████████████████████████████████████████████████"
  2659.     PrintLn "            @X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  2660.     PROC048()
  2661.  
  2662.     EndProc
  2663.  
  2664.  
  2665. ;------------------------------------------------------------------------------
  2666.  
  2667.     Procedure PROC047()
  2668.  
  2669.     Cls
  2670.     PrintLn "            @X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X00@X07"
  2671.     PrintLn "            @X78   ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄   @X07"
  2672.     PrintLn "            @X07███@X1E                                                @X07███"
  2673.     PrintLn "            @X07███@X1E            @X17[@X1ESCAN@X17]@X1B..Scan Area Names             @X07███"
  2674.     PrintLn "            @X07███@X1E    @X17[@X1EY@X17]@X1B..Your Messages   @X17[@X1ET@X17]@X1B...To Field Name    @X07███"
  2675.     PrintLn "            @X07███@X1E    @X17[@X1ES@X17]@X1B..Scan For Text   @X17[@X1EF@X17]@X1B.From Field Name    @X07███"
  2676.     PrintLn "            @X07███@X1E            @X17[@X1ETF@X17]@X1B...To & From Fields             @X07███"
  2677.     PrintLn "            @X07███@X1E                   @X17[@X1EQ@X17]@X1B..Quit                    @X07███"
  2678.     PrintLn "            @X07███@X1E                                                @X07███"
  2679.     PrintLn "            @X07███@X1F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07███"
  2680.     PrintLn "            @X07██████████████████████████████████████████████████████"
  2681.     PrintLn "            @X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  2682.     PrintLn 
  2683.     PROC049()
  2684.  
  2685.     EndProc
  2686.  
  2687.  
  2688. ;------------------------------------------------------------------------------
  2689.  
  2690.     Procedure PROC048()
  2691.  
  2692.     InputStr "@X0E(@X0C@TIMELEFT@@X0E min. left) @CONFNAME@ Command", STRING046, 14, 6, Mask_Ascii(), 8
  2693.     If (Upper((STRING046 == "Q"))) Then
  2694.         PROC015()
  2695.     ElseIf (Upper((STRING046 == "J"))) Then
  2696.         PROC050()
  2697.     ElseIf (Upper((STRING046 == "C"))) Then
  2698.         Command 1, "C"
  2699.     ElseIf (Upper((STRING046 == "E"))) Then
  2700.         Command 0, "E"
  2701.     ElseIf (Upper((STRING046 == "MAIN"))) Then
  2702.         End
  2703.     ElseIf (Upper((STRING046 == "W"))) Then
  2704.         Command 0, "E"
  2705.     ElseIf (Upper((STRING046 == "A"))) Then
  2706.         Command 1, "A"
  2707.     ElseIf (Upper((STRING046 == "ALL"))) Then
  2708.         Command 1, "R A"
  2709.     ElseIf (Upper((STRING046 == "Y"))) Then
  2710.         Command 1, "R A Y"
  2711.     ElseIf (Upper((STRING046 == "RA"))) Then
  2712.         Command 1, "R 1+"
  2713.     ElseIf (Upper((STRING046 == "R"))) Then
  2714.         Command 1, "R U +"
  2715.     ElseIf (Upper((STRING046 == "TF"))) Then
  2716.         Command 1, "R USER"
  2717.     ElseIf (Upper((STRING046 == "T"))) Then
  2718.         Command 1, "R TO"
  2719.     ElseIf (Upper((STRING046 == "F"))) Then
  2720.         Command 1, "R FROM"
  2721.     ElseIf (Upper((STRING046 == "QS"))) Then
  2722.         Command 1, "Q S"
  2723.     ElseIf (Upper((STRING046 == "SC"))) Then
  2724.         Command 1, "R TS"
  2725.     ElseIf (Upper((STRING046 == "S"))) Then
  2726.         Command 1, "J S"
  2727.     ElseIf (Upper((STRING046 == "SELECT"))) Then
  2728.         Command 1, "SELECT"
  2729.     ElseIf (Upper((STRING046 == "SCAN"))) Then
  2730.         PROC047()
  2731.     ElseIf (Upper((STRING046 == "QWK"))) Then
  2732.         Command 0, "QWK"
  2733.     ElseIf (Upper((STRING046 == "G"))) Then
  2734.         Command 1, "G"
  2735.         End
  2736.     Else
  2737.         PROC046()
  2738.     Endif
  2739.     PROC046()
  2740.  
  2741.     EndProc
  2742.  
  2743.  
  2744. ;------------------------------------------------------------------------------
  2745.  
  2746.     Procedure PROC049()
  2747.  
  2748.     InputStr "@X0E(@X0C@TIMELEFT@@X0E min. left) @CONFNAME@ Command", STRING046, 14, 6, Mask_Ascii(), 8
  2749.     If (Upper((STRING046 == "Q"))) Then
  2750.         PROC046()
  2751.     ElseIf (Upper((STRING046 == "MAIN"))) Then
  2752.         End
  2753.     ElseIf (Upper((STRING046 == "J"))) Then
  2754.         PROC050()
  2755.     ElseIf (Upper((STRING046 == "C"))) Then
  2756.         Command 1, "C"
  2757.     ElseIf (Upper((STRING046 == "E"))) Then
  2758.         Command 0, "E"
  2759.     ElseIf (Upper((STRING046 == "W"))) Then
  2760.         Command 0, "E"
  2761.     ElseIf (Upper((STRING046 == "A"))) Then
  2762.         Command 1, "A"
  2763.     ElseIf (Upper((STRING046 == "ALL"))) Then
  2764.         Command 1, "R A"
  2765.     ElseIf (Upper((STRING046 == "Y"))) Then
  2766.         Command 1, "R A Y"
  2767.     ElseIf (Upper((STRING046 == "RA"))) Then
  2768.         Command 1, "R 1+"
  2769.     ElseIf (Upper((STRING046 == "R"))) Then
  2770.         Command 1, "R U +"
  2771.     ElseIf (Upper((STRING046 == "TF"))) Then
  2772.         Command 1, "R USER"
  2773.     ElseIf (Upper((STRING046 == "T"))) Then
  2774.         Command 1, "R TO"
  2775.     ElseIf (Upper((STRING046 == "F"))) Then
  2776.         Command 1, "R FROM"
  2777.     ElseIf (Upper((STRING046 == "QS"))) Then
  2778.         Command 1, "Q S"
  2779.     ElseIf (Upper((STRING046 == "SC"))) Then
  2780.         Command 1, "R TS"
  2781.     ElseIf (Upper((STRING046 == "S"))) Then
  2782.         Command 1, "J S"
  2783.     ElseIf (Upper((STRING046 == "SELECT"))) Then
  2784.         Command 1, "SELECT"
  2785.     ElseIf (Upper((STRING046 == "SCAN"))) Then
  2786.         Command 1, "J S"
  2787.     ElseIf (Upper((STRING046 == "QWK"))) Then
  2788.         Command 0, "QWK"
  2789.     ElseIf (Upper((STRING046 == "G"))) Then
  2790.         Command 1, "G"
  2791.         End
  2792.     Else
  2793.         PROC047()
  2794.     Endif
  2795.     PROC047()
  2796.  
  2797.     EndProc
  2798.  
  2799.  
  2800. ;------------------------------------------------------------------------------
  2801.  
  2802.     Procedure PROC050()
  2803.  
  2804.     String   STRING175
  2805.  
  2806.     PrintLn 
  2807.     InputInt "@X0EConference # to Join or [@X0BENTER@X0E] to list", STRING175, 15
  2808.     STRING175 = "J " + STRING175
  2809.     Cls
  2810.     Command 0, STRING175
  2811.     PROC046()
  2812.  
  2813.     EndProc
  2814.  
  2815.  
  2816. ;------------------------------------------------------------------------------
  2817.  
  2818.     Procedure PROC051()
  2819.  
  2820.     Cls
  2821.     PrintLn 
  2822.     PrintLn 
  2823.     PrintLn " @X0A Please use the following format@X0E: "
  2824.     PrintLn 
  2825.     PrintLn "     @X0EInternet Addressing @X0B-> @X0Drichard.ploski@ploski.com"
  2826.     PrintLn "      @X0EFidonet Addressing @X0B-> @X0DRichard Ploski@1:2625/120"
  2827.     If (Upper(STRING014) == "Y") Then
  2828.         PrintLn "          @X0EAmerica Online @X0B-> @X0Dusername @X07 ex: rploski"
  2829.         PrintLn "              @X0ECompuserve @X0B-> @X0Didnumber @X07 ex: ######,####"
  2830.         PrintLn "                  @X0EDelphi @X0B-> @X0Dusername @X07 ex: rploski"
  2831.         PrintLn "                   @X0EGenie @X0B-> @X0Dusername @X07 ex: rploski"
  2832.         PrintLn "                 @X0EProdigy @X0B-> @X0Duserid @X07 ex: zxyw##v"
  2833.         PrintLn "                @X0EATT Mail @X0B-> @X0Dusername @X07 ex: rploski"
  2834.         PrintLn "                @X0EMCI Mail @X0B-> @X0Dusername @X07 ex: rploski"
  2835.     Endif
  2836.     PrintLn 
  2837.  
  2838.     EndProc
  2839.  
  2840.  
  2841. ;------------------------------------------------------------------------------
  2842.  
  2843.     Procedure PROC052()
  2844.  
  2845.     Cls
  2846.     PrintLn 
  2847.     PrintLn "                    @X17 ╔════════════════════════════════════╗ @X07"
  2848.     PrintLn "                    @X17 ║                                    ║ @X07"
  2849.     PrintLn "                    @X17 ║   @X1CNOTICE:                          @X17║ @X07"
  2850.     PrintLn "                    @X17 ║                                    ║ @X07"
  2851.     PrintLn "                    @X17 ║   @X1CYou Are Attempting to run this   @X17║ @X07"
  2852.     PrintLn "                    @X17 ║   @X1Cprogram on more nodes than you   @X17║ @X07"
  2853.     PrintLn "                    @X17 ║   @X1Care licensed to use!             @X17║ @X07"
  2854.     PrintLn "                    @X17 ║                                    ║ @X07"
  2855.     PrintLn "                    @X17 ║   @X1BThe shareware version supports   @X17║ @X07"
  2856.     PrintLn "                    @X17 ║   @X1BNode 0 and Node 1 only.          @X17║ @X07"
  2857.     PrintLn "                    @X17 ║                                    ║ @X07"
  2858.     PrintLn "                    @X17 ║   @X1E  For further information        @X17║ @X07"
  2859.     PrintLn "                    @X17 ║   @X1E   consult REGISTER.DOC          @X17║ @X07"
  2860.     PrintLn "                    @X17 ║                                    ║ @X07"
  2861.     PrintLn "                    @X17 ╚════════════════════════════════════╝ @X07"
  2862.     PrintLn 
  2863.     PrintLn 
  2864.     Delay 200
  2865.     PROC013()
  2866.     End
  2867.  
  2868.     EndProc
  2869.  
  2870.  
  2871. ;------------------------------------------------------------------------------
  2872.  
  2873.     Procedure PROC005()
  2874.  
  2875.     Select Case (STRING135)
  2876.         Case "3"
  2877.             STRING101 = STRING101 + STRING015
  2878.         Case "4"
  2879.             STRING101 = STRING101 + STRING016
  2880.         Case "5"
  2881.             STRING101 = STRING101 + STRING017
  2882.         Case "6"
  2883.             STRING101 = STRING101 + STRING018
  2884.         Case "7"
  2885.             STRING101 = STRING101 + STRING019
  2886.         Case "8"
  2887.             STRING101 = STRING101 + STRING020
  2888.         Case "9"
  2889.             STRING101 = STRING101 + STRING021
  2890.     End Select
  2891.     Return
  2892.  
  2893.     EndProc
  2894.  
  2895.  
  2896. ;------------------------------------------------------------------------------
  2897.  
  2898.     Procedure PROC011()
  2899.  
  2900.     String   STRING176
  2901.     String   STRING177
  2902.  
  2903.     PROC017()
  2904.     PROC035()
  2905.     Select Case (STRING123)
  2906.         Case ".ADD"
  2907.             STRING177 = ".NOT"
  2908.         Case ".AD2"
  2909.             STRING177 = ".NO2"
  2910.         Case ".AD3"
  2911.             STRING177 = ".NO3"
  2912.         Case ".AD4"
  2913.             STRING177 = ".NO4"
  2914.         Case ".AD5"
  2915.             STRING177 = ".NO5"
  2916.         Case ".AD6"
  2917.             STRING177 = ".NO6"
  2918.         Case ".AD7"
  2919.             STRING177 = ".NO7"
  2920.         Case ".AD8"
  2921.             STRING177 = ".NO8"
  2922.         Case ".AD9"
  2923.             STRING177 = ".NO9"
  2924.         Case ".A10"
  2925.             STRING177 = ".N10"
  2926.     End Select
  2927.     STRING176 = STRING055 + STRING056 + "\" + STRING066 + STRING177
  2928.     PrintLn 
  2929.     If (Upper((STRING046 == "Q"))) Then
  2930.         PROC021()
  2931.     Else
  2932.         Select Case (STRING046)
  2933.             Case ""
  2934.                 PROC021()
  2935.             Case "A"
  2936.                 InputStr "Note", STRING112, 10, 30, Mask_Ascii(), 0
  2937.             Case "B"
  2938.                 InputStr "Note", STRING113, 10, 30, Mask_Ascii(), 0
  2939.             Case "C"
  2940.                 InputStr "Note", STRING114, 10, 30, Mask_Ascii(), 0
  2941.             Case "D"
  2942.                 InputStr "Note", STRING115, 10, 30, Mask_Ascii(), 0
  2943.             Case "E"
  2944.                 InputStr "Note", STRING116, 10, 30, Mask_Ascii(), 0
  2945.             Case "F"
  2946.                 InputStr "Note", STRING117, 10, 30, Mask_Ascii(), 0
  2947.             Case "G"
  2948.                 InputStr "Note", STRING118, 10, 30, Mask_Ascii(), 0
  2949.             Case "H"
  2950.                 InputStr "Note", STRING119, 10, 30, Mask_Ascii(), 0
  2951.             Case "I"
  2952.                 InputStr "Note", STRING120, 10, 30, Mask_Ascii(), 0
  2953.             Case "J"
  2954.                 InputStr "Note", STRING121, 10, 30, Mask_Ascii(), 0
  2955.             Case Else
  2956.                 Return
  2957.             Endif
  2958.     End Select
  2959.     Delete STRING176
  2960.     FAppend 5, STRING176, 2, 0
  2961.     FPut 5, STRING112 + STRING045
  2962.     FPut 5, STRING113 + STRING045
  2963.     FPut 5, STRING114 + STRING045
  2964.     FPut 5, STRING115 + STRING045
  2965.     FPut 5, STRING116 + STRING045
  2966.     FPut 5, STRING117 + STRING045
  2967.     FPut 5, STRING118 + STRING045
  2968.     FPut 5, STRING119 + STRING045
  2969.     FPut 5, STRING120 + STRING045
  2970.     FPut 5, STRING121 + STRING045
  2971.     FClose 5
  2972.     Cls
  2973.     Return
  2974.  
  2975.     EndProc
  2976.  
  2977.  
  2978. ;------------------------------------------------------------------------------
  2979.  
  2980.     Procedure PROC012()
  2981.  
  2982.     String   STRING178
  2983.     String   STRING179
  2984.  
  2985.     Select Case (STRING123)
  2986.         Case ".ADD"
  2987.             STRING179 = ".NOT"
  2988.         Case ".AD2"
  2989.             STRING179 = ".NO2"
  2990.         Case ".AD3"
  2991.             STRING179 = ".NO3"
  2992.         Case ".AD4"
  2993.             STRING179 = ".NO4"
  2994.         Case ".AD5"
  2995.             STRING179 = ".NO5"
  2996.         Case ".AD6"
  2997.             STRING179 = ".NO6"
  2998.         Case ".AD7"
  2999.             STRING179 = ".NO7"
  3000.         Case ".AD8"
  3001.             STRING179 = ".NO8"
  3002.         Case ".AD9"
  3003.             STRING179 = ".NO9"
  3004.         Case ".A10"
  3005.             STRING179 = ".N10"
  3006.     End Select
  3007.     STRING178 = STRING055 + STRING056 + "\" + STRING066 + STRING179
  3008.     PrintLn 
  3009.     If (Upper((STRING046 == "Q"))) Then
  3010.         STRING112 = " "
  3011.         STRING113 = " "
  3012.         STRING114 = " "
  3013.         STRING115 = " "
  3014.         STRING116 = " "
  3015.         STRING117 = " "
  3016.         STRING118 = " "
  3017.         STRING119 = " "
  3018.         STRING120 = " "
  3019.         STRING121 = " "
  3020.     Else
  3021.         Select Case (STRING046)
  3022.             Case ""
  3023.                 STRING112 = " "
  3024.                 STRING113 = " "
  3025.                 STRING114 = " "
  3026.                 STRING115 = " "
  3027.                 STRING116 = " "
  3028.                 STRING117 = " "
  3029.                 STRING118 = " "
  3030.                 STRING119 = " "
  3031.                 STRING120 = " "
  3032.                 STRING121 = " "
  3033.             Case "N"
  3034.                 STRING112 = " "
  3035.                 STRING113 = " "
  3036.                 STRING114 = " "
  3037.                 STRING115 = " "
  3038.                 STRING116 = " "
  3039.                 STRING117 = " "
  3040.                 STRING118 = " "
  3041.                 STRING119 = " "
  3042.                 STRING120 = " "
  3043.                 STRING121 = " "
  3044.             Case "A"
  3045.                 InputStr "Note", STRING112, 10, 30, Mask_Ascii(), 0
  3046.             Case "B"
  3047.                 InputStr "Note", STRING113, 10, 30, Mask_Ascii(), 0
  3048.             Case "C"
  3049.                 InputStr "Note", STRING114, 10, 30, Mask_Ascii(), 0
  3050.             Case "D"
  3051.                 InputStr "Note", STRING115, 10, 30, Mask_Ascii(), 0
  3052.             Case "E"
  3053.                 InputStr "Note", STRING116, 10, 30, Mask_Ascii(), 0
  3054.             Case "F"
  3055.                 InputStr "Note", STRING117, 10, 30, Mask_Ascii(), 0
  3056.             Case "G"
  3057.                 InputStr "Note", STRING118, 10, 30, Mask_Ascii(), 0
  3058.             Case "H"
  3059.                 InputStr "Note", STRING119, 10, 30, Mask_Ascii(), 0
  3060.             Case "I"
  3061.                 InputStr "Note", STRING120, 10, 30, Mask_Ascii(), 0
  3062.             Case "J"
  3063.                 InputStr "Note", STRING121, 10, 30, Mask_Ascii(), 0
  3064.             Case Else
  3065.                 PROC036()
  3066.             Endif
  3067.     End Select
  3068.     Delete STRING178
  3069.     FAppend 5, STRING178, 2, 0
  3070.     FPut 5, STRING112 + STRING045
  3071.     FPut 5, STRING113 + STRING045
  3072.     FPut 5, STRING114 + STRING045
  3073.     FPut 5, STRING115 + STRING045
  3074.     FPut 5, STRING116 + STRING045
  3075.     FPut 5, STRING117 + STRING045
  3076.     FPut 5, STRING118 + STRING045
  3077.     FPut 5, STRING119 + STRING045
  3078.     FPut 5, STRING120 + STRING045
  3079.     FPut 5, STRING121 + STRING045
  3080.     FClose 5
  3081.     Cls
  3082.     PROC036()
  3083.  
  3084.     EndProc
  3085.  
  3086.  
  3087. ;------------------------------------------------------------------------------
  3088.  
  3089.     Procedure PROC003()
  3090.  
  3091.     If (CurSec() < INTEGER007) Then
  3092.         PrintLn 
  3093.         PrintLn "@X0C Sorry but you don't have access to this feature! "
  3094.         PrintLn "@X0A Please contact the SysOp for access...."
  3095.         PrintLn 
  3096.         PROC013()
  3097.         PROC015()
  3098.     Else
  3099.         Return
  3100.     Endif
  3101.  
  3102.     EndProc
  3103.  
  3104.  
  3105. ;------------------------------------------------------------------------------
  3106.  
  3107.     Procedure PROC002()
  3108.  
  3109.     Delete STRING070
  3110.     FAppend 5, STRING070, 2, 0
  3111.     FPut 5, STRING122 + STRING045
  3112.     FPut 5, STRING071 + STRING045
  3113.     FPut 5, STRING072 + STRING045
  3114.     FPut 5, STRING073 + STRING045
  3115.     FPut 5, STRING074 + STRING045
  3116.     FPut 5, STRING075 + STRING045
  3117.     FPut 5, STRING076 + STRING045
  3118.     FPut 5, STRING077 + STRING045
  3119.     FPut 5, STRING078 + STRING045
  3120.     FPut 5, STRING079 + STRING045
  3121.     FPut 5, STRING080 + STRING045
  3122.     FClose 5
  3123.     Delete STRING013
  3124.     FAppend 8, STRING013, 2, 0
  3125.     FPut 8, STRING112 + STRING045
  3126.     FPut 8, STRING113 + STRING045
  3127.     FPut 8, STRING114 + STRING045
  3128.     FPut 8, STRING115 + STRING045
  3129.     FPut 8, STRING116 + STRING045
  3130.     FPut 8, STRING117 + STRING045
  3131.     FPut 8, STRING118 + STRING045
  3132.     FPut 8, STRING119 + STRING045
  3133.     FPut 8, STRING120 + STRING045
  3134.     FPut 8, STRING121 + STRING045
  3135.     FClose 8
  3136.  
  3137.     EndProc
  3138.  
  3139.  
  3140. ;------------------------------------------------------------------------------
  3141.  
  3142.     Procedure PROC001()
  3143.  
  3144.     String   STRING180
  3145.     String   STRING181
  3146.  
  3147.     ShowOff
  3148.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".ADD"
  3149.     FOpen 4, STRING180, 0, 0
  3150.     If (Ferr(4)) Then
  3151.         STRING002 = "@X0B@X0BAddress Book 1"
  3152.     Else
  3153.         FGet 4, STRING181
  3154.         STRING002 = "@X0D" + Trim(STRING181, " ")
  3155.     Endif
  3156.     FClose 4
  3157.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD2"
  3158.     FOpen 4, STRING180, 0, 0
  3159.     If (Ferr(4)) Then
  3160.         STRING003 = "@X0B@X0BAddress Book 2"
  3161.     Else
  3162.         FGet 4, STRING181
  3163.         STRING003 = "@X0D" + Trim(STRING181, " ")
  3164.     Endif
  3165.     FClose 4
  3166.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD3"
  3167.     FOpen 4, STRING180, 0, 0
  3168.     If (Ferr(4)) Then
  3169.         STRING004 = "@X0B@X0BAddress Book 3"
  3170.     Else
  3171.         FGet 4, STRING181
  3172.         STRING004 = "@X0D" + Trim(STRING181, " ")
  3173.     Endif
  3174.     FClose 4
  3175.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD4"
  3176.     FOpen 4, STRING180, 0, 0
  3177.     If (Ferr(4)) Then
  3178.         STRING005 = "@X0BAddress Book 4"
  3179.     Else
  3180.         FGet 4, STRING181
  3181.         STRING005 = "@X0D" + Trim(STRING181, " ")
  3182.     Endif
  3183.     FClose 4
  3184.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD5"
  3185.     FOpen 4, STRING180, 0, 0
  3186.     If (Ferr(4)) Then
  3187.         STRING006 = "@X0BAddress Book 5"
  3188.     Else
  3189.         FGet 4, STRING181
  3190.         STRING006 = "@X0D" + Trim(STRING181, " ")
  3191.     Endif
  3192.     FClose 4
  3193.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD6"
  3194.     FOpen 4, STRING180, 0, 0
  3195.     If (Ferr(4)) Then
  3196.         STRING007 = "@X0BAddress Book 6"
  3197.     Else
  3198.         FGet 4, STRING181
  3199.         STRING007 = "@X0D" + Trim(STRING181, " ")
  3200.     Endif
  3201.     FClose 4
  3202.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD7"
  3203.     FOpen 4, STRING180, 0, 0
  3204.     If (Ferr(4)) Then
  3205.         STRING008 = "@X0BAddress Book 7"
  3206.     Else
  3207.         FGet 4, STRING181
  3208.         STRING008 = "@X0D" + Trim(STRING181, " ")
  3209.     Endif
  3210.     FClose 4
  3211.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD8"
  3212.     FOpen 4, STRING180, 0, 0
  3213.     If (Ferr(4)) Then
  3214.         STRING009 = "@X0BAddress Book 8"
  3215.     Else
  3216.         FGet 4, STRING181
  3217.         STRING009 = "@X0D" + Trim(STRING181, " ")
  3218.     Endif
  3219.     FClose 4
  3220.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".AD9"
  3221.     FOpen 4, STRING180, 0, 0
  3222.     If (Ferr(4)) Then
  3223.         STRING010 = "@X0BAddress Book 9"
  3224.     Else
  3225.         FGet 4, STRING181
  3226.         STRING010 = "@X0D" + Trim(STRING181, " ")
  3227.     Endif
  3228.     FClose 4
  3229.     STRING180 = STRING055 + STRING056 + "\" + STRING066 + ".A10"
  3230.     FOpen 4, STRING180, 0, 0
  3231.     If (Ferr(4)) Then
  3232.         STRING011 = "@X0BAddress Book 10"
  3233.     Else
  3234.         FGet 4, STRING181
  3235.         STRING011 = "@X0D" + Trim(STRING181, " ")
  3236.     Endif
  3237.     FClose 4
  3238.     ShowOn
  3239.  
  3240.     EndProc
  3241.  
  3242.  
  3243. ;------------------------------------------------------------------------------
  3244.  
  3245.     Procedure PROC014()
  3246.  
  3247.     String   STRING182
  3248.     Integer  INTEGER023
  3249.     Integer  INTEGER024
  3250.     String   STRING183
  3251.     String   TSTRING184(3)
  3252.     String   STRING185
  3253.     String   TSTRING186(3)
  3254.     String   TSTRING187(6)
  3255.  
  3256.     STRING182 = Chr(13)
  3257.     TSTRING186(1) = "@X03Press"
  3258.     TSTRING186(2) = "@X0BEnter"
  3259.     TSTRING186(3) = "@X03to continue or @X0A[@X0BN@X0A] @X03to Abort"
  3260.     TSTRING184(0) = "@X0B|"
  3261.     TSTRING184(1) = "@X0D\"
  3262.     TSTRING184(2) = "@X0E-"
  3263.     TSTRING184(3) = "@X0C/"
  3264.     TSTRING184(4) = "@X0A"
  3265.     STRING185 = " " + TSTRING187(4) + " " + TSTRING186(1) + " " + TSTRING187(5) + "@X0A[" + TSTRING187(3) + TSTRING186(2) + TSTRING187(5) + "@X0A]" + TSTRING187(4) + " " + TSTRING186(3) + " "
  3266.     If (GrafMode() == "N") Then
  3267.         Print TSTRING186(1) + " (" + TSTRING186(2) + ") " + TSTRING186(3)
  3268.         End
  3269.     Else
  3270.         INTEGER024 = GetY()
  3271.         AnsiPos 17, INTEGER024
  3272.         Print STRING185
  3273.     Endif
  3274.     While (STRING183 <> STRING182) Do
  3275.         AnsiPos 16, INTEGER024
  3276.         Print TSTRING187(1)
  3277.         Print TSTRING184(3 - INTEGER023 % 4)
  3278.         AnsiPos 62, INTEGER024
  3279.         Print TSTRING187(2)
  3280.         Print TSTRING184(INTEGER023 % 4)
  3281.         Delay 1
  3282.         Inc INTEGER023
  3283.         STRING183 = Upper(Inkey())
  3284.         If (STRING183 == "N") Then
  3285.             STRING012 = "Y"
  3286.             Return
  3287.         Endif
  3288.     EndWhile
  3289.  
  3290.     EndProc
  3291.  
  3292.  
  3293. ;------------------------------------------------------------------------------
  3294. ;
  3295. ; Usage report (before postprocessing)
  3296. ;
  3297. ; ■ Statements used :
  3298. ;
  3299. ;    11      End
  3300. ;    28      Cls
  3301. ;    691     Goto 
  3302. ;    682     Let 
  3303. ;    12      Print 
  3304. ;    368     PrintLn 
  3305. ;    376     If 
  3306. ;    20      Input 
  3307. ;    15      FOpen 
  3308. ;    9       FAppend 
  3309. ;    28      FClose 
  3310. ;    53      FGet 
  3311. ;    73      FPut 
  3312. ;    2       FPutLn 
  3313. ;    7       StartDisp 
  3314. ;    1       GetUser
  3315. ;    1       PutUser
  3316. ;    9       Delete 
  3317. ;    71      InputStr 
  3318. ;    1       InputInt 
  3319. ;    20      Return
  3320. ;    4       Delay 
  3321. ;    2       Inc 
  3322. ;    1       Shell 
  3323. ;    24      KbdStuff 
  3324. ;    31      Join 
  3325. ;    6       AnsiPos 
  3326. ;    38      ShowOn
  3327. ;    36      ShowOff
  3328. ;    52      EndProc
  3329. ;    87      Command 
  3330. ;
  3331. ;
  3332. ; ■ Functions used :
  3333. ;
  3334. ;    6       *
  3335. ;    6       /
  3336. ;    4       %
  3337. ;    649     +
  3338. ;    60      -
  3339. ;    349     ==
  3340. ;    2       <>
  3341. ;    3       <
  3342. ;    5       >
  3343. ;    2       >=
  3344. ;    376     !
  3345. ;    52      Len(
  3346. ;    2       Lower()
  3347. ;    101     Upper()
  3348. ;    17      Mid()
  3349. ;    38      Left()
  3350. ;    52      Space()
  3351. ;    15      Ferr()
  3352. ;    5       Chr()
  3353. ;    6       Asc()
  3354. ;    6       InStr()
  3355. ;    68      Trim()
  3356. ;    10      U_Name()
  3357. ;    2       Replace()
  3358. ;    2       Inkey()
  3359. ;    10      String()
  3360. ;    49      Mask_Ascii()
  3361. ;    1       PPEPath()
  3362. ;    4       PcbNode()
  3363. ;    5       CurSec()
  3364. ;    2       GetY()
  3365. ;    2       GrafMode()
  3366. ;    4       ReplaceStr()
  3367. ;
  3368. ;------------------------------------------------------------------------------
  3369. ;
  3370. ; Analysis flags : WS
  3371. ;
  3372. ; W - Write user ■ 5
  3373. ;     Program writes a user record. Although this may be normal for a
  3374. ;     User Editor, it may also be a way to modify an account level.
  3375. ;     ■ Search for : PUTUSER
  3376. ;
  3377. ; S - Shell to DOS ■ 5
  3378. ;     This may be normal if the PPE need to execute an external command,
  3379. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  3380. ;     or usefull (sorting, maintenance,...). Check!
  3381. ;     ■ Search for : SHELL
  3382. ;
  3383. ;------------------------------------------------------------------------------
  3384. ;
  3385. ; Postprocessing report
  3386. ;
  3387. ;    0       For/Next
  3388. ;    2       While/EndWhile
  3389. ;    150     If/Then or If/Then/Else
  3390. ;    26      Select Case
  3391. ;
  3392. ;------------------------------------------------------------------------------
  3393. ;                 AEGiS Corp - Break the routines, code against the machines!
  3394. ;------------------------------------------------------------------------------
  3395.